Const N:=30(любое значение);
var a:array[1....N] of integer;
begin
for i:=1 to N do begin
write ('A='); read (a[i]);
end;
c:=0;
for i:=1 to N do begin
if a[i] mod 3=0 then begin
c:=c+1;
end;
end;
write (c);
end.
N=2^x
Так как, следуя из определения "Сообщение, уменьшающее неопределенность знаний человека в 2 раза, несет для него 1 бит инф-и", то неопределенность инф. сообщения равному 44 бита снижается в <span><span>5,459432</span></span>≈5,5 раза
#include <iostream> // для операции вывода cout
using namespace std; // вместо 'std::' перед cout
int main() {
// цикл в промежутке [1; 9] с шагом 2 (1, 3, ...)
for (int i = 1; i <= 9; i += 2) {
cout << i << ' '; // вывод текущего числа
}
return 0; // возврат из основной функции
}