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

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

Sample Input Sample Output

375859 9
123856387 8

Задать свой вопрос
Владислав Митиль
помоги мне
Иван Паташури
пж
1 ответ

Ответ:

var n,max,l: integer;

begin  

readln(n);

max := -1000;

while n lt;gt; 0 do

begin

l:= n mod 10;

if l gt; max then

max := l;

n := n div 10;

end;

writeln(max);

end.

Разъяснение:

Светлана Упеник
не верно
Нелли Макисова
А ты проверял?)
Антонина Зиборова
да
Mihail Teplenin
на веб-сайт не входить
Руслан
Не знаю, у меня работает как надобно
Vasilisa Vejdeman
в паскале выводить верно на веб-сайте на 1 -1 на 2 выводе -8
Сережа
Не знаю в чем неувязка
Оля Дмитращенко
ну помогите
Игорек Цепилов
Проверил на Primat'е, работает как надобно
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт