
Составьте програму вычисления произведения первых 7 натуральных чисел используя цикл.

var
i,n,p:integer;
beginreadln(n);p:=1;
for i:=1 to n do p:=p*i;
write(p);end.Оцени ответ
Вход
Регистрация
Задать вопрос
var
i,n,p:integer;
beginreadln(n);p:=1;
for i:=1 to n do p:=p*i;
write(p);end.