В первом тексте на один символ отводится 5 бит (2^5 = 32), во втором 6 бит (2^6 = 64). Поэтому информационный объем второго текста в 6/5 = 1,2 раза больше
//PascalABC.NET
begin
seqgen(readinteger(), x -> (2 * x) / (2 * x + 1), 1).Product.Print;
end.
Вот тебе пример)
while not EOF(FTemp) do
begin
ReadLn(FTemp, S);
WriteLn(FT, S)
end;
{ Закрытие входного файла }
Close(FT);
{ Усечение размера временного файла до 0 }
Rewrite(FTemp);
{ Закрытие временного файла }
Close(FTemp)
end;
~Not(не)
Знак ~, расположенный поверх другого оператора, означает то же самое, что «¬», помещённое перед выражением.