Поменять местами содержимое переменных A и B и вывести новые значения A и B

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

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

Поделиться:

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

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