Вычислить: P=a (a-n) (a-2n) * ... * (a-n2)

Question

Информатика

Надюра

26 июля, 09:08

Вычислить: P=a (a-n) (a-2n) * ... * (a-n2)

+5

Ответы (1)

Знаете ответ на вопрос?

Феодора · Answer 1

Var

a, p:real;

n, i:integer;

begin

write ('a = ') ;

readln (a) ;

write ('n = ') ;

readln (n) ;

p : = a;

for i : = 1 to n do

p : = p * (a - i * n) ;

writeln ('p = ', p) ;

readln;

end.