<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
begin
var a,y:real; Read(a,y);
Write((5+a)/(7-y))
end.
<u>Пример</u>
5.2 -3.11
1.00890207715134
Решение смотри во вложении.
Var x,y:real;beginx:= 0.1;writeln('x ':6,' y':6);while x<0.7 dobeginy:= 2*Sin(x);writeln(x :6, y:9:3);x:= x + 0.1;end;<span>end.</span>