СДЕЛАТЬ В 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.
Не нашли ответ?
Похожие вопросы