Pascal ABC.
Дано натуральное число "n". Составьте программу которая выводит максимальную цифру этого числа.
var n,m,a : integer;
begin
readln (n);
While n > 0 do begin
a := n mod 10;
if a > m then
m := a;
n := n div 10;
end;
writeln (m);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
