Эта функция от трех переменных. Логическая схема во вложении. Удачи!
На дискете обычно 1.4 Мб, на CD-диске - 700 Мб, на DVD - 4700 Мб.
Из второго можем сразу найти, что на флешке 2701.4 - 1.4 - 700 = 2000 Мб.
begin
write( 'Целых недель = ',234 div 7);
end.
01000001.10000000.11111111.00001100 первый ip-адрес
11000000.00110000.00000000.00011000 второй ip-адрес
Var
a, b: integer;
begin
b := 0;
a := 1;
repeat
b := b + 1;
a := a * 2;
until a = 1024;
writeln(b);
end.