Итак, вначале напишем число 74 из которого в итоге должны получить 0.
Вот что получилось у меня.
74|:2
37|-1
36<span>|:2
18</span><span>|-1
17</span><span>|-1
16</span><span>|-1
15</span><span>|-1
14</span><span>|:2
7</span><span>|-1
6</span><span>|:2
3</span><span>|-1
2</span><span>|:2
1</span><span>|-1
Следуя этому получаем: 2121111212121 </span>
Программа работает
var
<span>n,</span><span>i,j,</span><span>s :integer;
</span>begin
Write('введите число');
Readln(n);
for i:=1 to n
do begin
s:=0;
for j:=1 to i div 2 do begin
if i mod j=0 then inc(s);end;
if s=1 then Writeln(i);
end;end.
<span>
П.С. программа находит все простые числа до заданного тобой числа</span>
2 в степени i = N (мощность алфавита)
2 в степени i = 16
i = 4 бит (вес 1-го символа)
16 * 32 * 4 = 204/8 бит = 256 байт = 0,25 Кб(вес одной страницы)
20 / 0,25 = 80 страниц
Держи '................
...............
Самое 1 не подходит , ибо остальные это продукты майкрософт офис, 2 для презентаций, 3 это ворд для текстовых документов , а 4 это для работы с базой данных