Паскаль
var
a, b, c, t, i: integer;
begin
readln(a, b, c);
Writeln(0:2, ': a=', a, ' b=', b, ' c=', c);
for i := 1 to 10 do
begin
t := a;
a := c;
c := b;
b := t;
Writeln(i:2, ': ', a, ' ', b, ' ', c);
end;
end.
Алгоритм
нач
ввод a, b, c
цикл по i от 1 до 10
нач
t = a
a = c
c = b
b = t
вывод a, b, c
кон
кон
Трасировка
0: a=1 b=2 c=3
1: 3 1 2
2: 2 3 1
3: 1 2 3
4: 3 1 2
5: 2 3 1
6: 1 2 3
7: 3 1 2
8: 2 3 1
9: 1 2 3
10: 3 1 2