Ответы и объяснения

2013-05-22T18:28:23+00:00

uses Crt;
var i,n :integer; p:real;
begin
p:=1;
readln(n);
for i:=1 to n do
p:=p*(1/i);
writeln(p);
readln
end.

  • Sky09
  • профессор
2013-05-22T18:30:53+00:00

Program abc;

var P:real; N,x:integer;

begin

Readln(N);

P:=1;

For x:=1 to N do

P:=P* 1/x;

writeln(P);

end.