Написать программу находящую максимальную цифру пятизначного числа.​

Question

Написать программу находящую максимальную цифру пятизначного числа.​

Answer 1

Ответ:

Pascal

var a, b, max:Integer;

begin

max:=0;

readln(a);

for b := 1 to 5 do begin

if max < (a mod 10) then

max:=a mod 10;

a:=a div 10;

end;

writeln(max);

end.

Comments

прости а после разве begin не ставится точка с запятой(я просто не шарю в информатике и сам по себе тупой)

---

Точка с запятой означает окончание действия, инициализации и т.д., а после begin действие начинается)

---

Только один недочёт здесь есть в плане, что программа обрабатывает не только 5-значные числа, а все.

---

Я пока думаю над этим вопросом.