Question

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

Answer 1

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.