Тeлeпузік
24.03.2020 06:33

Программисты составить программу на языке pascal

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
диля1234567асем
10.10.2020 12:34

begin

 var x:=ReadReal();

 if(x<=-4) then

   print(0)

  else if((x>-4) and (x<=6)) then

    print(sin(x)**2)  

  else if((x>=6) and (x<=20)) then

    print(x**(1/3))

  else if(x>20) then print((sin(x)**2)/2);

end.

0,0(0 оценок)
Ответ:
виктор2282
10.10.2020 12:34

begin

 var x := ReadReal('x=');

 var y: real;

 if x <= -4 then

   y := 0

 else if x <= 6 then

   y := Sqr(Sin(x))

 else if x <= 20 then

   y := x ** (1 / 3)

 else

   y := Sqr(Sin(x)) / 2;

 Println(y);

end.

x= 19.8

2.70533922899524

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота