С клавиатуры вводится целое число, содержащее не более 7 цифр. Определить максимальную цифру в этом числе. Программа Pascal ABC. Нужно использовать цикл с предусловием.
С клавиатуры вводится целое число, содержащее не более 7 цифр. Определить максимальную цифру в этом числе.
Программа Pascal ABC. Нужно использовать цикл с предусловием.
Гость
Ответ(ы) на вопрос:
ГостьVar a,b,max:integer;
begin
readln(a);
max:=-maxint;
while a>0 do
begin
b:=a mod 10;
a:=a div 10;
if b>max then max:=b;
end;
writeln(max)
end.
Не нашли ответ?
Похожие вопросы