Пожалуйста помогите решить на паскаль с постусловием Дано натуральное число M. Написать программу для вычисления первой цифры числа M. входные данные 54321 выходные данные 5. Дано натуральное число M. Написать программу для выч...
Пожалуйста помогите решить на паскаль с постусловием
Дано натуральное число M. Написать программу для вычисления первой цифры числа M. входные данные 54321 выходные данные 5.
Дано натуральное число M. Написать программу для вычисления второй цифры числа М(M>10) входные данные 54321 выходные данные 4.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы