Program pr1;
var i,b:integer; a,s:real;
begin
readln(b);
for i:=1 to b-9 do
begin
readln(a);
if (a mod 3 = 0) and (a mod 2 <> 0) then
s:=s+a;
end;
writeln(s);
end.
Винчествер!!!!!!!!!!!!!!!!!!!!!
Для начала найдем вес одного символа. Разделим общий объем на количество символов в сообщении. Но для этого переведем в биты: 6*1024*8=49152 бит.
Вес одного символа равняется 49152/6144=8 бит
Воспользуемся формулой N=2^i, где i - вес одного символа, N - количество символов в алфавите.
N=2^8=256 символов.
1)30*2=60
2)60*1024=61440
3)61440:256=240
Ответ:240 секунд=4 минуты
1 Мб=1000000 байт
0,5 Мб=1000000\2=500000 байт
1 байт=8 бит
512\8=64 байт
1 Гб=1024*1024 Кб
2048 Кб=2048\1048576=0,001953125 Гб
2 байт=2*8=16 бит
1 Кб=1000 байт
1000000 байт=1000000\1000=1000 Кб