Решите пожалуйста программу в Pascal:
x=y^2-sqrt(y), при y>=0;
x=3/y+y, при y<0.
Напишите пожалуйста решение программы.
Ответы
Ответ дал:
0
var
x, y: real;
begin
readln(y);
if y >= 0 then x := sqr(y) - sqrt(y) else
x := 3 / y + y;
writeln(x);
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад
8 лет назад