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

Ответы:

Viktor Shevchenko

18-01-2014 11:56

Var a,b,max:integer;beginreadln(a);max:=-maxint;while a>0 dobeginb:=a mod 10;a:=a div 10;if b>max then max:=b;end;writeln(max)end.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Даня Соменко

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

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!