Надо составить программу:x=12; y:=x+3; x:=2*y; t:=x+y; y=t/y; Вывод переменных: x, y, t

Question

Надо составить программу:
x=12; y:=x+3; x:=2*y; t:=x+y; y=t/y;
Вывод переменных:
x, y, t

Answer 1

Var x,y,t:real;
begin
x:=12;
y:=x+3;
x:=2*y;
t:=x+y;
y:=t/y;
writeln('x = ',x,' y = ',y,' t = ',t);
end.

Результат:
x = 30 y = 3 t = 45

Comments

спасибо выручили

---

Пожалуйста.