<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(Range(2,2*ReadInteger('n='),2).Aggregate(BigInteger(1),(m,n)->m*n))
end.
<u>Пример</u>
n= 37
1891675820705153808241239602722999673157373132800000000
13 мбайт = 13*1024 кбайт = 13*1024*1024 байт = 13*1024*1024*8 бит = 109 051 904 бит. 68 бит = 68/8 байт = 68/(8*1024) = 0.0083 кбайт.
Ответ е2)
муравей двигается по полю
Program chik;
var s,i,n:integer;
begin
readln(n);
for i:=1 to n do
if(i mod 2=0)then s:=s+i;
writeln(s);
end.
<span>
</span>