Я мало чего понял из условия. Если я правильно понял, то мы вводим 15 чисел, и хотим чтобы компьютер нам выдал только нечтные их них.
Вот эта программа работать не будет по любому хотя бы из-за того, что на строке с меткой 50 стоит <u>NEXT</u>, хотя команды <u>FOR</u> до этого не было - ошибка.
Я написал програмку так как я понял с нечетными числами:
CLS
DIM a(15)
FOR i = 1 TO 15
INPUT a(i)
NEXT i
FOR i = 1 TO 15
IF (INT(a(i) / 2)) <> (a(i) / 2) THEN PRINT a(i)
NEXT i
END
Program konf;
var a, b, summ: real;
begin
a := 1.2;
readln(b);
while a < 2 do
begin
summ := a * b;
writeln(summ, ' za ', a);
a := a + 0.2
end;
<span>end.</span>
Число 307 в двоичной записи выглядит вот так : <span>100110011
соответственно 5 единиц. (перевести число 307 в двоичную систему и просто посчитать единицы)</span>
I(место, необходимое для хранения сообщения) = 12*33*63 = 24 948 Бит
24 948 Бит = 24 948 / 8 = 3 118. 5 байт.