1Мбайт текста в unicode=1*1024* 024 = 1048576 символов
Код программы:
var i, sum, a:integer;
begin
writeln('Четные числа:');
for i:= 72 to 134 do begin
if i mod 2 = 0 then
write(i, ' ');
end;
writeln();
writeln();
writeln('Числа, оканчивающиеся на "3":');
for i:= 72 to 134 do begin
if i mod 10 = 3 then
write(i, ' ');
end;
writeln();
writeln();
writeln('Числа, сумма цифр которых меньше 11:');
for i:= 72 to 134 do begin
a:= i;
sum:= 0;
while a <> 0 do begin
sum := sum + a mod 10;
a := a div 10;
end;
if sum < 11 then
write(i, ' ');
end;
end.
1/512 Мб = 1/512 * (1024 Кб) = 2 Кб = 2048 байт = 16384 бит
ответ. 16384.
Могут быть и другие варианты - расширенная кодовая таблица ASCII кодирует символ 8 битами, а UTF-16 и UTF-32 шестнадцатью и тридцатью двумя соответственно.