Question

Составить программу на языке pascal abc. По алгоритму (Алгоритм приложен)

Answer 1

Ответ:

Var x,y :real;

Begin

x:=7;

y:=x-15;

x:=(x+y)/2;

y:=x-5;

writeln(x,' ',y)

end.