Найти максимальную цифру натурального числа n. паскаль input со стандартного устройства ввода вводится 1 натуральное число, не превосходящее 2000000000. output нужно выдать на стандартное устройство вывода 1 цифру – наибольшую в данном числе. sample input sample output 375859 9 123856387 8

Lizaliza123123 Lizaliza123123    3   21.04.2019 14:15    8

Ответы
ослвлвллыб ослвлвллыб  08.06.2020 03:18

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.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика