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

Question

Боруля

9 апреля, 08:15

+5

Ответы (1)

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

Фотинья · Answer 1

Var

n, m:integer;

begin

read (n) ;

m:=0;

while n0 do

begin

if m< (n mod 10) then m:=n mod 10;

n:=n div 10;

end;

writeln (m) ;

end.