"даны вещественные числа t , x, y, z. поменять их значения местами "по кругу" записав на место t значения x , на место x значение y, на место y значение z, на место z значение t"
"даны вещественные числа t , x, y, z. поменять их значения местами "по кругу" записав на место t значения x , на место x значение y, на место y значение z, на место z значение t"
Гость
Ответ(ы) на вопрос:
Гостьvar t, x, y, z, m, n:real;
begin
writeln ('Vvedite t, x, y, z');
readln(t, x, y, z);
m:=z;
z:=t;
n:=y;
y:=m;
m:=x;
x:=n;
t:=m;
writeln ('t = ', t);
writeln ('x = ', x);
writeln ('y = ', y);
writeln ('z = ', z);
end.
Не нашли ответ?
Похожие вопросы