Question

ввести x и y и вычислить S.

Answer 1

begin
var x:= ReadReal('x =');
var y:= ReadReal('y =');
if (x = 0)and(y = 0)then
Writeln('S = ',0);
if (x <> 0)and(y <> 0)then
Writeln('S = ', 1/x + 1/y);
if (x <> 0)and(y = 0) then
Writeln('S = ', 1/x);
if (x = 0)and(y <> 0) then
Writeln('S = ', 1/y);
end.