Автор: Anton

Anton — Mon, 11 Jan 2016 04:48:43 +0000

В ответ на olegst1975. Добавил в шапку, только вынес write(a,b,c); из процедуры.

Автор: olegst1975

olegst1975 — Sun, 10 Jan 2016 21:48:07 +0000

тоже используя предыдущую процедуру

[crayon-6934806e6b139351559837 inline="true" ]
procedure Swap(var x,y:real);
  begin
  x:=x+y;
  y:=x-y;
  x:=x-y;
  end;

procedure SortInc3(var a,b,c:real);
  begin
  if a>b then Swap(a,b);
  if b>c then Swap(b,c);
  if a>b then Swap(a,b);
  write(a,b,c);
  end;

var
  a,b,c:real;
  i:integer;
begin
  for i:=1 to 2 do
   begin
    read(a,b,c);
    SortInc3(a,b,c);
   end;
end.

[crayon-6934806e6b139351559837 inline="true" ]

procedure Swap(var x,y:real);

begin

x:=x+y;

y:=x-y;

x:=x-y;

end;

procedure SortInc3(var a,b,c:real);

begin

if a>b then Swap(a,b);

if b>c then Swap(b,c);

if a>b then Swap(a,b);

write(a,b,c);

end;

var

a,b,c:real;

i:integer;

begin

for i:=1 to 2 do

begin

read(a,b,c);

SortInc3(a,b,c);

end;

end.

[/crayon]

Комментарии: Решаем задачи Абрамян на Паскале. Proc 12

Автор: Anton

Автор: olegst1975