Найдите произведение ряда 1*1/2*1/3*//*1/n, n вводит пользователь. Программирование Паскаль.
Найдите произведение ряда 1*1/2*1/3*//*1/n, n вводит пользователь. Программирование Паскаль.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы