1/16=0.0625 мб
0,0625*1024*1024*8=524288 бит объем сообщения.
524288/16384=32 символа содержит алфавит
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var n:=ReadInteger('n=');
var s:=BigInteger(0);
var p:=Biginteger(1);
for var i:=1 to n do begin p*=i; s+=p end;
Print(s)
end.
Тестовые решения
n= 5
153
n= 10
4037913
n= 50
31035053229546199656252032972759319953190362094566672920420940313
Var a,b,c,d,S:integer;
begin
readln(d);
S:=0;
a:=7;
b:=3;
c:=a+b;
if c>d then
S:=c-d
else
S:=d-c;
writeln(S);
end.
программа, выводящая на экран номер четверти координатной плоскости, которой принадлежит точка с координатами х≠0 и у≠0
program 198;
var x,y: real;
begin;
readln (x; y);
if x>0 and y>0 then
writeln (1 chetvert);
end;
if x<0 and y>0 then
writeln (2 chetvert);
end;
if x<0 and y<0 then
writeln (3 chetvert);
end;
if x>0 and y<0 then
writeln (4 chetvert);
end;
end.