Question

Помогите, пожалуйста!
1. Написать программу которая ищет n! (цикл while)

2. Написать программу, которая находит число Р = (1-1/2)(1-1/3)*...*(1-1/n). N вводится с клавиатуры. (цикл for)

Answer 1

Ответ:

Объяснение:

1.

var

 k:integer;

 p:integer;

 n:integer;

begin

 readln(n);

 

 p:=1;

 k:=1;

 

 while (k <= n) do begin

   p:=p*k;

   k:=k+1;

 end;

 

 writeln(p);

 

end.

2.

var

 k:integer;

 p:real;

 n:integer;

begin

 readln(n);

 

 p:=1;

 

 for k:=2 to n do begin

   p:=p*(1 - (1/k));

 end;

 

 writeln(p);

 

end.