Написать программу которая находит произведение n первых натуральных чисел. число n вводится с клавиатуры. выполнить программу для n=9 записать результат.

Question

Тодя

3 февраля, 13:37

+1

Ответы (1)

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

Добромысл · Answer 1

Cont n=9;

var i, p:integer;

begin

p:=1;

for i:=1 to n do p:=p*i;

writeln ("Произведение первых ", n," чисел = ", p) ;

end.