Найти максимальную цифру натурального числа n. паскаль input со стандартного устройства ввода вводится 1 натуральное число, не превосходящее 2000000000. output нужно выдать на стандартное устройство вывода 1 цифру – наибольшую в данном числе. sample input sample output 375859 9 123856387 8
var n,max,l: integer;
begin
readln(n);
max := -1000;
while n <> 0 do
begin
l:= n mod 10;
if l > max then
max := l;
n := n div 10;
end;
writeln(max);
end.
Объяснение: