Muniath
6 год назад
Пожалуйста помогите решить на паскаль с постусловием
Дано натуральное число M. Написать программу для вычисления первой цифры числа M. входные данные 54321 выходные данные 5.
Дано натуральное число M. Написать программу для вычисления второй цифры числа М(M>10) входные данные 54321 выходные данные 4.
ОТВЕТЫ
Тихонович
Aug 11, 2019
Var
m, i: integer;
a: array[1..10] of integer;
begin
readln(m);
i := 0;
repeat
i := i + 1;
a[i] := m mod 10;
m := m div 10;
until m = 0;
writeln(Первая цифра , a[i]);
writeln(Вторая цифра , a[i - 1]);
end.
m, i: integer;
a: array[1..10] of integer;
begin
readln(m);
i := 0;
repeat
i := i + 1;
a[i] := m mod 10;
m := m div 10;
until m = 0;
writeln(Первая цифра , a[i]);
writeln(Вторая цифра , a[i - 1]);
end.
160
