Найти наибольшую и наименьшую цифры в записи данного натурального числа (Pascal ABC). C использованием цикла REPEAT
Answers & Comments
estengseant
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.
Answers & Comments
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.