Даны переменные A, B, C. Изменить их значения, переместив содержимое A в B, B — в C, C — в A, и вывести новые значения переменных A, B, C

Категория: Delphi/Pascal
2011-11-14 23:22:50
code: #pascal
Program Begin23;
Var
A,B,C,Temp1,Temp2:Real;
Begin
WriteLn('Введите A,B и C');
RealLn(A,B,C);
Temp1:=B;
Temp2:=C;
B:=A;
C:=Temp1;
A:=Temp2;
WriteLn('A = ',A:6:3,' B = ',B:6:3,' C = ',C:6:3);
ReadLn;
End.

автор: Sklyarov Sergej a.k.a. S9

Поделиться:

Похожие статьи:

теги: студенты, консольное приложение, переменные, поменять местами