67108864 байт.
Это если слева 1/16 Гбайт, т.е. 0,0625 Гбайт.
756 бит =94,5 байт 176 килобайт =180224 байт 577 мегабайт =590848 килобайт
Program MAX;
var
a:integer;{само проверяемое число}
m:integer;{максимально число}
begin
m:=0;{начальное значение максимального числа}
writeln('Введите ваше число:', '(Если захотите выйти, напишите ноль)':3);
readln(a);
while (a <> 0) then begin
If (a > m) then begin
m:= a; end;
readln(a); end;
writeln('Максимально число:', m:3);
End.
Формула включений исключений
19 = 16 + 10+ 6 - 5 - 6 - х + 5
х=7
158кб=158*2^13 бит
1кб=2^13 бит