<span>1)
var n,i:integer;
begin
readln(n);
for i:=1 to n do
if n mod i = 0 then write(i,' ');
readln;
end<span>.</span></span>
Каждая следущая ячейка есть сумма нижней и левой ячейки. Начальная ячейка имеет значение 1
Ответ 380
1,5 Мбайта = 1572864 байта
4096 бит = 4 кбит = 0,5 кбайт