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

Question

Вероня

11 января, 14:30

+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.