Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 19.11.2016 08:14
- Информатика
- remove_red_eye 14057
- thumb_up 40
Ответы и объяснения 1
//PascalABC.Net 3.1.0.1200
var
a, b, c, d, x, y: real;
begin
readln(a, b, c, d);
if a * b >= c * d then
if a * b >= 0 then
x := sqrt(a * b)
else begin
writeln('Корня нет');
exit;
end
else x := c * Power(d, 1 / 3);
if x < 1 then
if a > 0 then
y := ln(a) + c * x
else begin
writeln('Логарифм не существует');
exit;
end
else
if a >= 3 then
y := c - a * x
else
y := b + d / x;
writeln(x, ' ', y);
end.
- 20.11.2016 13:33
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.