Предмет: Информатика,
автор: Кот1698
Вычислить произведение n-сомножителей P=1*2*3.......*10=10!
Ответы
Автор ответа:
0
var i,p,n:integer;
begin
p:=1;
readln(n);
for i:=1 to n do
p*=i;
writeln(p);
end.
begin
p:=1;
readln(n);
for i:=1 to n do
p*=i;
writeln(p);
end.
Интересные вопросы
Предмет: Русский язык,
автор: shihaleevandrey
Предмет: Математика,
автор: vexlayf26
Предмет: Математика,
автор: Ivanova207
Предмет: Химия,
автор: sveta1908