Ответы на вопрос:
Var x : array[1..15] of real; i : byte; begin n: =0; for i: =1 to 15 do begin readln(x[i]); if (sin(x[i])> -0.5) and (sin(x[i])< =0) then n: =n+1; end; writeln(n); end.
Популярно: Информатика
-
V1ctoriaF0X08.03.2021 15:20
-
Milkiskiss02.09.2021 21:52
-
34346316531329.11.2021 19:12
-
missana1234522.03.2020 20:28
-
gjgyctfrf15.08.2021 01:29
-
nurzhamal080108.11.2021 19:17
-
ampolskaanastas05.05.2023 09:29
-
alyonasmirnova505.06.2023 19:38
-
kolyakolomiets13.03.2020 22:14
-
mikki25511.07.2020 05:56