Помогите с Pascal ABC срочно!
Приложения:
![](https://st.uroker.com/files/b70/b70d31b64d7862537c301aa90b13ef74.jpg)
TTолковник:
если паскаль - значит не срочно) вот на питоне - срочно )
Ответы
Ответ дал:
1
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.
Я решил эту задачу так
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
8 лет назад