program abc;
var a, b, c, buf: integer;
begin
read(a);
read(b);
read(c);
if b > c then begin
buf:=b;
b:=c;
c:=buf;
end;
if a > b then begin
buf:=a;
a:=b;
b:=buf;
writeln(a,' ',b,' ',c);
end.
Я решил эту задачу так
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program abc;
var a, b, c, buf: integer;
begin
read(a);
read(b);
read(c);
if b > c then begin
buf:=b;
b:=c;
c:=buf;
end;
if a > b then begin
buf:=a;
a:=b;
b:=buf;
end;
if b > c then begin
buf:=b;
b:=c;
c:=buf;
end;
writeln(a,' ',b,' ',c);
end.
Я решил эту задачу так