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.
Для простоты, сначала рассчитаем объем файла в битах. 512000*16 = 8192000 - бит. Далее, в одном байте - 8 бит. А в одном килобайте - 1024 байт. Следовательно, в одном килобайте - 8*1024 = 8192 бит. Значит, объем файла: 8192000/8192 = 1000 килобайт.