Помогите пожалуйста. Вообщем задача такая: Дано двухзначное число

Question

Помогите пожалуйста. Вообщем задача такая: Дано двухзначное число. Определить наибольшую его цифру. Входные данные: 45Выходные данные: 5

Answer 1

60

nadohak25

02 августа 2022

Program gt; var a,q,max: longint; beginread (a); max: =-1; while a>0 dobeginq: =a mod 10; a: =a div 10; if (q>max) then max: =q; end; writeln (max); end.

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

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

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

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

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