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

Question

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

Answer 1

Var a,b,c,d:integer;
begin
  write('введите a,b,c ');
  readln(a,b,c);
  d:=c;c:=b;b:=a;a:=d;
  writeln('a = ',a,' b = ',b,' c = ',c);
end.

Тестовое решение:
введите a,b,c 3 2 1
a = 1 b = 3 c = 2