Question

дано содержимое трëх ячеек памяти поменять местами содержимое ячеек по часовой стрелке информатика 8 класc

Answer 1

var

 a,b,c,v:integer;

begin

 readln(a);

 readln(b);

 readln(c);

 

 v := c;

 c := b;

 b := a;

 a := v;

 

 print(a,' - ',b,' - ',c)

end.