Muzan
5 год назад
Пожалуйста посчитайте пожалуйста программу в Pascal:x=y^2-sqrt(y), при y>=0;x=3/y+y, при y<0.Напишите пожалуйста решение программы.
ОТВЕТЫ
Mark
Oct 24, 2020
var
x, y: real;
begin
readln(y);
if y >= 0 then x := sqr(y) - sqrt(y) else
x := 3 / y + y;
writeln(x);
end.
734
Смежные вопросы:
