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

Question

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

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

Гость

Ответ(ы) на вопрос:

Гость

program cikl; var a,b,c,i,j,k:integer; begin writeln('BBedute A,B,C'); readln(a,b,c); i:=a; j:=b; k:=c; a:=j; b:=k; c:=i; writeln('a=',a,'b=',b,'c=',c); readln end.

Accepted Answer

var a,b,c,a1,b1,c1:real; begin readln(a,b,c); b1:=a; c1:=b; a1:=c; writeln(a1,b1,c1); end.