Question

Найти максимальную цифру натурального числа N. паскаль
Input
Со стандартного устройства ввода вводится 1 натуральное число, не превосходящее
2000000000.
Output
Нужно выдать на стандартное устройство вывода 1 цифру – наибольшую в данном
числе.

Sample Input Sample Output

375859 9
123856387 8

Answer 1

Ответ:

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.

Объяснение: