Pascal, цикл while или repeat

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

Question

Информатика

Христя

10 марта, 22:41

Pascal, цикл while или repeat

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

+5

Ответы (1)

Знаете ответ на вопрос?

Ладя · Answer 1

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.

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

Pascal, цикл while или repeat

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