Вопрос школьника по предмету Информатика
Написать программу находящую максимальную цифру пятизначного числа.
Ответ учителя по предмету Информатика
Ответ:
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.
Похожие вопросы от пользователей