|
Задача 80.
Даны два целых числа. Поменять местами их значения.
{В Turbo Pascal 7.0 такой процедуры нет, поэтому мы создадим ее сами.
Менять местами значения двух переменных можно двумя способами - через промежуточную переменную или без нее. Напишем процедуру, воспользовавшись первым способом.}
uses crt;
var a,b: integer;
procedure swap (var x,y: integer);
var z: integer;
begin
z:=x;x:=y;y:=z;
end;
begin
clrscr;
write('a=b=');readln(a, b);
swap(a,b);
writeln('a=,b=',a, ' ' ,b);
readln;
end.
|
