Программа вычисления произведения

morlok

Всем привет!Нужна помощь в составлении программ: 1)программы вычисления произведения n*(n+1)*....*(2n)
1 ответ

morlok

program prois;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var n,k,p:integer;
begin
   read(n);
   k:=n;
   p:=n;
   for n:=1 to k do begin
      p:=p*(k+n);
   end;
   write(p);
end.