Программисты составить программу !
ruslankasaev
1
04.11.2019 23:13
0
Другие вопросы по теме Информатика
artemssh2
08.12.2020 01:13
саша8038
08.12.2020 01:11
София5778
24.03.2019 16:09
ArtSchoolMan
24.03.2019 15:57
ankadudka
24.03.2019 15:52
10ЛК
30.04.2020 07:50
maxpotekhin2002200
30.04.2020 07:50
vanya165
15.01.2020 21:08
prostofiii
18.10.2019 07:02
Популярные вопросы
- Почему гоголь был и остается современным писателем?...
3 - Причины наподения джуджаров на казахское ханство ,несколько причин...
3 - Рассчитайте, . массовую долю al(no3)2 f(c2o)2 )...
1 - Подчеркните в предложении причастия и задайте к ним вопросы. 1. здесь...
2 - Х÷19 48 найти уравнения и решить их...
1 - Всадник проехал 80 км за 5 ч . сколько времени потратит на этот путь...
2 - Түзуге тиісті және тиісті емес нүктелер мен түзуді салу керек . хеелп...
2 - Назовите причины великих открытий (не менее 3-х), мотивы, которые...
3 - Содной грядки собрали 15 кг клубники, а с другой 10 кг. когда из части...
1 - 5. как называется та часть природы земли, которую изучают -фы? какова...
1
Begin
var x:=ReadReal();
var y:real;
if x<=-4 then
y:=0
else if (x>-4) and (x<=6) then
y:=sin(x) ** 2
else if (x>=6) and (x<=20) then
y:=x ** (3/2)
else if (x>20) then
y:= (sin(x) ** 2)/2;
y.Println;
End.