Pascal, цикл while или repeat Ввести число. Найти наибольшую цифру в записи числа.

Pascal, цикл while или repeat Ввести число. Найти наибольшую цифру в записи числа.
Гость
Ответ(ы) на вопрос:
Гость
var n : integer; max: byte; begin write ('Введите число: '); readln (n); n:=abs (n); while n>0 do begin if (n mod 10)>max then max:=n mod 10; n:=n div 10; end; write ('Макс. цифра - ', max); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы