Дано целое число N найти самую максимальную цифру этого числа

Question

Информатика

Люция

12 декабря, 19:16

Дано целое число N найти самую максимальную цифру этого числа

+5

Ответы (1)

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

Алинка · Answer 1

Var n, x, max:integer;

begin

readln (n) ;

while n>0 do

begin

x:=n mod 10;

if x>max then max:=x;

n:=n div 10;

end;

writeln ('Максимальная цифра: ', max) ;

end.