а) 1000 бит и 1 Кбайт
1 Кбайт = 1024 байт = 1024*8 бит =8192 бит
1000 бит < 1 Кбайт
b) 1536 бит и 1,5 Кбайт
1,5 Кбайт = 1,5* 8192 = 12288 бит
1536 бит < 1,5 Кбайт
c) 220 байт и 0,25 Кбайт
0.25 Кбайт = 1024*0.25 байт = 256 байт
220 байт < 0,25 Кбайт
var arr: array [1..9] of integer;
i, num: integer;
begin
i := 1;
while (i <= 9) do
begin
readln(num);
if (num mod 3 = 0) then
begin
arr[i] := num;
i := i + 1;
end;
end;
end.
1 бочка = 3 галлона
2 бочка = 5 галлонов
Набираем во 2 бочку [0:5]
Переливаем из 2 в 1 бочку [3:2]
Выливаем из 1 бочки [0:2]
Переливаем из 2 в 1 бочку [2:0]
Набираем во 2 бочку [2:5]
Переливаем из 2 в 1 бочку [3:4]
Выливаем из 1 бочки [0:4]
Теперь у нас во второй бочку 4 галлона