Предмет: Информатика,
автор: ksu9711
ввести x и y и вычислить S.
Приложения:
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: Информатика,
автор: asssssw2
Предмет: Биология,
автор: dara73182
Предмет: ОБЖ,
автор: tatanakravcenko470
Предмет: Математика,
автор: дианочка61