Даны натуральные числа а, n. Вычислить a (a-n) (a-2n) ... (a-n*n).

через паскаль

Question

Нестор

8 июня, 00:56

+1

Ответы (1)

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

Андроныч · Answer 1

Program info;

var a, n, o:integer;

begin

read (a, n) ;

s:=a * (a-n) * (a-2n) * (a-n*n) ;

writeln (s) ;

end.

Вот и всё ...

Даны натуральные числа а, n. Вычислить a (a-n) (a-2n) ... (a-n*n).через паскаль