
Beabandis
5 год назад
ввести x и y и вычислить S.

ОТВЕТЫ

Адам
Oct 24, 2020
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.
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.
552
Смежные вопросы: