Задание:
Помогите пожалуйста. Вообщем задача такая: Дано двухзначное число. Определить наибольшую его цифру. Входные данные: 45Выходные данные: 5
Решение:
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.
Знаете другой ответ?