Найти максимальную цифру натурального числа N. паскаль Input Со стандартного устройства...

Question

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

Comments

помоги мне

---

пж

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.

Объяснение:

Comments

не правильно

---

А ты проверял?)

---

да

---

на сайт не заходить

---

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

---

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

---

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

---

ну помогите

---

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