Question

Найти наибольшую и наименьшую цифры в записи данного натурального числа (Pascal ABC). C использованием цикла REPEAT

Answer 1

program f1cda001;
var a, b, c, min, max: Integer;
begin
writeln('Введите число:');
readln(b);
min:=9;
max:=0;
repeat
begin
c:=b mod 10;
b:=b div 10;
If c<min Then min:=c;
If c>max Then max:=c;
end;
until b<=0;
writeln('Наибольшее значение:',max);
writeln('Наименьшее значение:',min);
end.