Определить значение переменной s после выполнения следующих операторов: s: =1; n: =1; for i: =2 to n do s: =s+1/i;
273
305
Ответы на вопрос:
Var
I, m: integer;
Mul:float;
Begin
Read(b);
Mul=1;
M=-1;
For i := 1 to 8 do
Begin
Mul:=mul*(b+(i+1)*(i+1)*m)/i;
M:=m*(-1);
End;
Writeln(mul);
End.
Объяснение:
Популярно: Информатика
-
vvolkova30.04.2022 16:30
-
НастяФем19.07.2022 11:18
-
пвмыиыо12.05.2020 17:06
-
ISMAL200918.12.2022 09:47
-
массисо08.09.2021 15:43
-
lera525213.05.2020 09:15
-
шахид211.09.2021 01:03
-
annamoz200403.07.2020 05:32
-
samaya200906.07.2021 22:37
-
Glebbb1519.03.2021 05:57