Даны действительное число A, натуральное число N.
Вычислить: P=A(A+1)x...x(A+n-1)
напить в Паскале, как вычислить)
var a,p:real;
i,n:integer;
Begin
read(a,n);
p:=1;
for i:= 0 to n-1 do
p:=p*(a+i);
writeln(p);
End.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
var a,p:real;
i,n:integer;
Begin
read(a,n);
p:=1;
for i:= 0 to n-1 do
p:=p*(a+i);
writeln(p);
End.