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.
Добрый день. Меня заинтересовал ваш ответ "const
l=10;
var
N:longint;
a:integer;
max,min:integer;
begin
readln(N);
if N=0 t..." на вопрос http://www.liveexpert.org/topic/view/79850-paskal. Можно с вами обсудить этот ответ?