Ответы на вопрос:
Var x,y,p: real; n,i: integer; beginwrite('x = '); readln(x); write('n = '); readln(n); p: =1; for i: =1 to n do begin p: =p*sin(x); y: =y+p; end; writeln('y = ',y: 6: 4); end.пример: x = 1.5n = 5y = 4.9626
Популярно: Информатика
-
ilkingaraev9009.01.2021 21:49
-
kipenkolya20.11.2022 03:40
-
lvlupiq09.06.2023 13:22
-
kURGA26.12.2022 11:52
-
tyutyunnik200224.07.2022 22:47
-
dranithkindana03.08.2020 13:35
-
геля56987818.04.2021 11:03
-
DianaHreseva06.10.2020 11:27
-
bykhan230.03.2023 10:46
-
dididididdd05.03.2020 13:12