Подробно . в закрытом ящике находится 64 карандаша, некоторые из них красного цвета. наугад вынимается один карандаш. сообщение "этот карандаш - не красный" несет 2 бита информации. сколько красных карандашей в ящике?

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.

#include < iostream> #include < vector> #include< windows.h> using namespace std; char bufrus[256]; char* rus(const char* text) { chartooem(text, bufrus); return bufrus; }int main(){ vector< int> m; //объявили динамический массивint n,count,sum; count=sum=0; cout< < rus("введите количество элементов массива: ");

cin> > n; for(int i=0; i< n; i++){ cout< < "m["< < i+1< < "]"; int temp; cin> > temp; if (temp> 7){count++; sum+=temp; } m.push_back(temp); }cout< < rus("количество элементов: ")< < count< < endl; cout< < rus("сумма элементов: ")< < sum; cin> > n; return 0; }

как видите, всё просто)