Badred 3 ноября 2019 в 07:50
СДЕЛАТЬ В PACKALABC
Даны значения трех вещественных переменных а,b и с
Обменять местами их значения при этом нельзя использовать никаких дополнительных переменных (a=b,b=c,c=a)
СДЕЛАТЬ В PACKALABC
Даны значения трех вещественных переменных а,b и с
Обменять местами их значения при этом нельзя использовать никаких дополнительных переменных (a=b,b=c,c=a)
Program prog;
uses crt;
var a,b,c: real;
begin;
clrscr;
readln(a,b,c);
a:=a+b+c;// a=a+b+c;
b:=a-b; // b=a+c;
c:=b-c; // c=a;
b:=b-c; // b=c;
a:=a-b-c; // a=b;
write(a, , b, ,c);
end.
uses crt;
var a,b,c: real;
begin;
clrscr;
readln(a,b,c);
a:=a+b+c;// a=a+b+c;
b:=a-b; // b=a+c;
c:=b-c; // c=a;
b:=b-c; // b=c;
a:=a-b-c; // a=b;
write(a, , b, ,c);
end.
Компьютеры и вычисления
200
61
Для комментирования необходимо зарегистрироваться на сайте