Решите пожалуйста программу в Pascal: x=y^2-sqrt(y), при y>=0; x=3/y+y, при y<0.Напишите пожалуйста решение программы.
125
ОТВЕТЫ
var
x, y: real;
begin
readln(y);
if y gt;= 0 then x := sqr(y) - sqrt(y) else
x := 3 / y + y;
writeln(x);
end.
18
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Артем
Даны два именуемых числа, найти сумму разность произведение и ...
2019-02-02 05:12:06
Евреинов
В массиве случайных чисел посчитать количество положительных элементов на ...
2019-02-02 05:10:54
Иеремия
Какое количество информации в сообщении из 20 символов, записанном ...
2019-02-02 05:09:33
Порфирий
В какой кодировке был записан текст, содержащий русские и ...
2019-02-02 05:09:17