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

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

 

Вопрос задан анонимно
11.05.11
1 ответ

Лучший ответ по мнению автора

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.

11.05.11
Лучший ответ по мнению автора

Еva

Читать ответы

1 1

Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store