Найти сумму вида 1/2+1/4+1/ n раз? вывести на экран слово "" n раз? прошу, в , не понимаю 15
223
402
Ответы на вопрос:
Var n,i: integer; s: real; begin write('n = '); readln(n); i: =0; for n: = 1 to n do begin i: =i+2; s: =s+1/i; end; writeln(s) end. var n: integer; begin write('n = '); readln(n); for n: = 1 to n do writeln('') end.
Популярно: Информатика
-
polinaroshupkina02.11.2020 18:57
-
Lina11133415.06.2023 14:31
-
TkAl0618.12.2022 17:22
-
germanbet25.05.2022 17:46
-
DanyNeifeld27.09.2022 20:37
-
mcfrank20312.06.2021 20:55
-
Huysosimoy23.12.2021 02:08
-
EgotinSmey12.04.2022 21:14
-
skvortsovaasya10.07.2020 14:58
-
wadwad1wad22.05.2020 14:34