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

Объяснение:

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.