Дано натуральное число. Найти максимальную цифру. В паскале

Дано натуральное число. Найти максимальную цифру. В паскале.

в избранное

snikers

10 сентября 2022

var n,k: integer; beginreadln (n); k: =n mod 10; while n>0 do begin n: =n div 10; if k< (n mod 10) then k: =n mod 10; if k=9 then break; end; writeln (k); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Задайте свой вопрос

Скорость передачи данных через ADSL-соединение равна 256000 бит/с

Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет: а) среднее…

Какая кнопка заменит Ctrl+s?

Напишите программу нахождения произведения 4 чисел?

Запишите число 817 в двоичной системе и обратно

Боря, Паша, Рома и Саша провели однокруговой турнир по игре в шахматы

1) продолжите ряд: 1,8,29,92…

Выберите ответ, в котором соответствие установлено наиболее точно в связи с предназначением данного типа редактора…

27400

Алгебра

14822

Английский язык

14216

Биология

7369

Другой

720

18829

8304

15850

5255

11818

23332

15992

73118

8152

466

46271

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: