следующая тема »

[25 Июль 2025, 21:33:15]

Новости, реклама:

[25 Июль 2025, 21:33:15]

Новости, реклама:

[coolasm]

var
a:real;
result:real;
n:integer;
i:integer;
begin  
readln(a);                          {считываем переменную a}
readln(n);                          {считываем переменную n}
result:=a;
for i:=1 to n-1 do
 begin
  result:=result*(a+i);        {a*(a+1)*...(a+n-1)}
 end;
writeln(result); {выводим результат}
end.

Проверять непроверял но вроде должно работать