//PascalABC.NET 3.2, старой версии нет, не могу проверить
begin
var a: BigInteger := 1;
for var i := 1 to ReadInteger do
a *= i;
write(a)
end.
Дисковод ноль.Приводов два(DVDRW и BD). Дисков 4.System C SSD под систему ,Data (D) под все остальное,Recovery E под архивы,драйверы и инсталяшки и VM для виртуальных машин
<span>5 дискретность - алгоритм должен состоять из конечного числа шагов, приводящих к решению задачи</span>
<span>srednee:=(a+b)/2; наверное.
</span>