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

Question

Информатика

Мара

2 октября, 13:56

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

+3

Ответы (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.