Регистрация
Войти
Стать экспертом Правила
Информатика

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

ОТВЕТЫ
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.
552
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам