256=2⁸, поэтому каждый символ кодируется 8 битами, строка занимает 10×8=80 бит, страница - 40×80 = 3200 бит, две страницы - 2×3200=6400 бит
Var i,n:integer;
begin
read(n);
for i:=1 to n do
write(i:5);
<span>end.
если в паскале то вот.</span>
<span>Вариант 2 номер пакета т.к. остальные не подходят</span>
//Pascal ABC.NET 3.1 сборка 1219
Var
s:string;
n:integer;
begin
readln(s);
readln(n);
var ars:=s.Split;
foreach var i in ars do
if length(i)=n then writeln(i);
end.
<span>Пример ввода:
</span>Ехал грека через реку видит грека в реке рак
5
Пример вывода:
грека
через
видит
грека