С клавиатуры вводится натуральное число N. Найдите и выведите самую большую цифру этого...

Question

С клавиатуры вводится натуральное число N. Найдите и выведите самую большую цифру этого числа.

Answer 1

Var
n,m:integer;
begin
read(n);
m:=0;
while n<>0 do
begin
if m<(n mod 10) then m:=n mod 10;<br>n:=n div 10;
end;
writeln(m);
end.

Comments

спасибо