1736 кбайта вот так чем могу тем помог
1/512 мегабайт = 0,001953125 мегабайт
0,001953125 мегабайт *1024 = 2 килобайта
2 килобайта * 1024 = 2048 байт
2048 байт * 8 = 16384 бит
ответ: 16384 бит
Program n1;
var i: integer;
begin
for i:=1 to 9 do if i mod 2<>0 then writeln(i);
end.
Решение во вложениях, с таблицей для перевода из 16 ричной системы в 2 ичную
var a: array [1..6] of integer;
var I: integer;
begin
a[1]:=5;
for I:=2 to 6 do a[I]:=a[I-1]*a[I-1];
writeln(a[I]);
end.
Ответ -4223