Program qq;
var a:array[1..n] of integer;
i,k,s,SA:integer;
begin
for i:=1 to N do readln(A[i]);
k:=0; SA:=0; s:=0;
for i:=1 to N do
If (A[i]mod2=0) and (A[i]mod3<>0) then begin
k:=k+1;
s:=s+A[i];
end;
SA:=s/k;
writeln(k, s, sa);
<span>end.</span>
Имеет расширение zip файла
Мощность алфавита 64 символа - означает, что на каждый символ необходимы 6 бит информации, т.к. 2^6=64
и 250 символов будут иметь объём
i = 260*6 = 1500 бит