Регистрация
360Polina360
09.03.2021 05:38
Информатика
Есть ответ 👍

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

197
326
Посмотреть ответы 2

Ответы на вопрос:

milka230614
milka230614
4,8(12 оценок)

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.

mashacherevchenko
mashacherevchenko
4,6(40 оценок)
По правилам комбинаторики 3^6=729 ответ: 729

Популярно: Информатика