Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 25.06.2018 09:28
- Информатика
- remove_red_eye 2274
- thumb_up 44
Ответы и объяснения 1
PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadReal('x=');
var y:real;
if (x>=4) and (x<-3) then y:=ArcSin(x)+Ln(x+2)
else if (x>=-3) and (x<0) then y:=2*Cos(10*x)+3
else if (x>=0) and (x<1.5) then y:=30*Sqr(x-2.25)+2.25
else if (x>=1.5) and (x<=2) then y:=15*(x-2.5)+4
else exit;
Writeln('y=',y)
end.
- 26.06.2018 21:14
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.