program Formula;
var z, x, y:Real;
begin
Write('Vvadite X '); ReadLn(x);
Write('Vvedite Y '); ReadLn(y);
z:=(1+Sqrt(X))/y;
WriteLn('Z budet ravno ',z:3:4,)
end.
Объяснение:
не нужно благодарностей
program Formula;
var z, x, y:Real;
begin
Write('Vvadite X '); ReadLn(x);
Write('Vvedite Y '); ReadLn(y);
z:=(1+Sqrt(X))/y;
WriteLn('Z budet ravno ',z:3:4,)
end.
Объяснение:
не нужно благодарностей