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

Question

Валентинка

2 февраля, 07:32

+1

Ответы (1)

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

Витана · Answer 1

Uses crt;

var

p:integer;

begin

p:=1;

for var i:=1 to 10 do

p:=p*i;

writeln ('Произведение первых 10 натуральных чисел = ', p) ;

end.