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.

Answer 2

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

Answer 3

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