Предмет: Информатика,
автор: Alex192000
Решите пожалуйста программу в 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.
Интересные вопросы
Предмет: Русский язык,
автор: esanovrasul373
Предмет: Русский язык,
автор: baxtina159753
Предмет: Литература,
автор: veragershkovich79
Предмет: Геометрия,
автор: sergeykovalenk2
Предмет: Математика,
автор: Елизавета051