Найдите произведение ряда 11/21/3//1/n, n вводит пользователь. Программирование Паскаль.

Question

Федюля

11 ноября, 16:12

+5

Ответы (2)

Знаете ответ?

Юрия · Answer 1

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.

Лавиния · Answer 2

Var

P:real;

N:integer;

Begin

P:=1;

Write ('N = ') ;

ReadLn (N) ;

For N: = 1 to N do

P:=P/N;

WriteLn ('Произведение ряда равно ', P)

End.

Найдите произведение ряда 1*1/2*1/3*//*1/n, n вводит пользователь. Программирование Паскаль.