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

Question

Лея Иванова

Информатика

12 февраля, 21:07

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

+3

Ответы (1)

Знаешь ответ на этот вопрос?

Елизавета Завьялова · Answer 1

var a, res:real; i, n:byte; begin writeln ('Введи N'); readln (n); writeln ('Введи число A'); readln (a); res:=a; i:=1; while i<=n do begin res:=res * (a-i*n); inc (i); end; writeln (res); end.