Решите задачу в паскаль двумя способами: с использованием цикла с параметром и с предусловием.
Дано действительное число а, натуральное число n. Вычислить:
P = a (a+1)×...×(a+n-1)

Var  a,n,p,i:integer;
begin
write(Введите а и n: );
readln(a,n);
p:=a;
for i:=1 to n-1 do
  p:=p*(a+i);
writeln(Ответ: ,p);
end.

var  a,n,p,i:integer;
begin
write(Введите а и n: );
readln(a,n);
p:=a;
while i  begin
  i:=i+1;
  p:=p*(a+i);
  end;
writeln(Ответ: ,p);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.