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

Question

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

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.

Comments

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

---

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

---

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