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.

Объяснение:

Answer 2

Не знаю, у меня работает как надо

Answer 3

в паскале выводить правильно на сайте на 1 -1 на 2 выводе -8

Answer 4

Не знаю в чем проблема

Answer 5

ну помогите

Answer 6

Проверил на Primat'е, работает как надо