Question

Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a, b,c.
Схема циклического обмена a-->b-->c

Например, если до обмена было:
a=1, b=2, c=3, то после обмена должно стать : a=2, b=3, c=1.

Answer 1

var a,b,c,d:integer
begin
readln(a,b,c);
d:=a;
a:=b;
b:=c;
c:=d;
writeln(a,' ',b,' ',c);
end.