Question

4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.

Answer 1

Program obmen;

Var a,b,c,x,y: integer;

Begin

A:=x;

B:=a;

C:=b;

X:=c;

writeLn (a,b,c)

End.