Учеба и наука

Решено

Паскаль - вопрос №79850

Задано единственное число N. Небходимо вывести наименьшую и наибольшую цифры данного числа через пробел.

Вопрос задан анонимно май 11, 2011 г.

Сообщить о нарушении

Всего ответов: 1

Алексей

18-й в Технологиях

5.0 14 отзывов

const
l=10;
var
N:longint;
a:integer;
max,min:integer;
begin
readln(N);
if N=0 then begin
    writeln(char(48)+' '+char(48));
    exit;
end;
min:=9;
max:=0;
while N>0 do begin
      a:=N mod 10;
      if a<min then min:=a;
      if a>max then max:=a;
      N:=N div 10;
end;
writeln(char(min+48)+' '+char(max+48));
end.