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

Question

Костюха

14 июня, 02:39

+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 вводит пользователь. Программирование Паскаль.