Нужно просто их посчитать
Там 6 едениц и 1 ноль
var
a: integer;
begin
readln(a);
if(a mod 4 = 0) and (a mod 100 <> 0) or (a mod 400 = 0) then
writeln('Год високосный')
else
writeln('Год не високосный');
end.
var
i, b: integer;
begin
b := 0;
for i := 1 to 100 do
if (i mod 2 <> 0) then b := b + i;
writeln(b);
end.
1) с
2) корневой каталог - С:
каталог первого уровня - windows
каталог второго уровня - appcompat
каталог третьего уровня - appraiser
3) b
1/16=0.0625 мб
0,0625*1024*1024*8=524288 бит объем сообщения.
524288/16384=32 символа содержит алфавит