Предмет: Информатика,
автор: Кот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.
Похожие вопросы
Предмет: Алгебра,
автор: annaabdurashidova79
Предмет: Физика,
автор: Аноним
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Математика,
автор: milabel