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

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

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

Поделиться:

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

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