Постройте таблицу истиности

program divisors;

var

n,i: integer;

begin

readln(n);

for i: =n downto 1 do if n mod i = 0 then write(i,' ');

end.

x на первом

у на втором

х+2=у

х+22=3у

отнимаем первое от второго

20=2у

у=10

х=у-2=8

1) 8 кбайт= 8192 байт = 65536 бит

2)32*32=1024 символов на странице

значит в каждую страницу помещается 1 кбайт, значит 320 страниц поместится