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

July 2022 1 6 Report

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

Answers & Comments

roookky 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.

2 votes Thanks 1

Sanchez1010 Какие буквы за что обозначены?

roookky a - число, которое вводишь
b - текущая цифра числа: сначала последняя, потом предпоследняя и т.к.
max - максимальная цифра числа

Sanchez1010 ясно,спасибо огромное!)

dan celochislennyj massiv iz 30 elementov elementy massiva mogut prinimat znache8c63d65c9d38d0970a75f859e89b8315 95153

Answer

Answers & Comments

dan celochislennyj massiv iz 30 elementov elementy massiva mogut prinimat znache8c63d65c9d38d0970a75f859e89b8315 95153

рекомендуемые вопросы

Helpful Links

Helpful Social