Информатика
дано четырёхзначное число ,найти наибольшую цифру в записи этого числа

Nastyaninisvn Nastyaninisvn    3   20.11.2019 21:27    0

Ответы
anfinogenov97 anfinogenov97  10.10.2020 14:41

program vld;

var a,b,c,max: integer;

begin

readln(b);

min:=9;

max:=0;

repeat

begin

c:=b mod 10;

b:=b div 10;

if c>max Then max:=c;

end;

until b<=0;

writeln('Наибольшее значение:',max);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика