Поищи как в инете сайты делать за 5 минут и там все будет написано, поверь мне, я сам так раньше делал, а теперь забыл.
Если алфавит 32-символьный, то каждый символ кодируется i=5 бит
Объем=кол-во символов*вес символа=80*5=400 бит=50 байт
//PascalABC.NET 3.1 сборка 1200
const
n = 1000;
begin
var primes := new List<integer>();
for var i := 2 to n do
begin
var f := true;
foreach var prime in primes do
if i mod prime = 0 then begin
f := false;
break;
end;
if f then primes.Add(i);
end;
foreach var prime in primes do
write(prime, ' ');
writeln;
writeln('Время вычисления: ', Milliseconds / 1000);
end.
месяцы,каждый месяц в каждом времени года-это и есть классификация
<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