С клавиатуры вводится целое число, содержащее не более 7 цифр. Определить максимальную цифру в этом числе.

Программа Pascal ABC. Нужно использовать цикл с предусловием.

Question

Информатика

Агафоклия

6 июля, 00:02

С клавиатуры вводится целое число, содержащее не более 7 цифр. Определить максимальную цифру в этом числе.

Программа Pascal ABC. Нужно использовать цикл с предусловием.

+4

Ответы (1)

Знаете ответ на вопрос?

Готя · Answer 1

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.

С клавиатуры вводится целое число, содержащее не более 7 цифр. Определить максимальную цифру в этом числе.Программа Pascal ABC. Нужно использовать цикл с предусловием.

С клавиатуры вводится целое число, содержащее не более 7 цифр. Определить максимальную цифру в этом числе.

Программа Pascal ABC. Нужно использовать цикл с предусловием.