Найдите произведение ряда 1*1/2*1/3*//*1/n, n вводит пользователь. программирование паскаль.
235
323
Ответы на вопрос:
Var p: real; n: integer; begin p: =1; write('n = '); readln(n); for n: = 1 to n do p: =p/n; writeln('произведение ряда равно ',p) end.
Var n,i: integer; p: real; begin writeln ('n='); readln(n); p: =1; for i: =1 to n do p: =p*1/i; writeln('p=',p); readln; end.
Популярно: Информатика
-
ArianaZimanina26.04.2022 02:39
-
madina31020.02.2023 08:49
-
sashik200510.02.2022 10:49
-
камомармалато22.04.2020 02:17
-
terteryanmarin01.10.2021 17:17
-
xZeoNx26.02.2022 11:27
-
fvbh3fvhc09.05.2023 04:39
-
simpolita06.06.2021 16:28
-
PASHA993r04.12.2022 09:58
-
liliya13424.06.2020 15:24