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

Question

Амельян

26 августа, 18:28

+4

Ответы (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.