Напишите программу, вычисляющую сумму 3-х введенных с клавиатуры нечетных чисел.​

var a,b,c,s:integer;

begin

s:= 0;

readln(a);

readln(b);

readln(c);

if a mod 2 = 1 then begin

 s:= s + a;

 end;

if b mod 2 = 1 then begin

 s:= s + b;

end;

if c mod 2 = 1 then begin

 s:= s + c;

 end;

writeln('Сумма нечетных чисел = ', s)

end.

чтобы закодировать любое число от 1 до 4000 нужно i=12 бит (2^i = 4000; i=12 бит). 300 * 12 = 3600 бит = 450 байт.

11000 (2) = 30 (8) = 18 (16) = 24 (10)

100111 (2) = 47 (8) = 27 (16) = 39 (10)

10100011 (2) = 243 (8) = а3 (16) = 163 (10)

101010101010 (2) = 5252 (8) = (16) = 2730 (10)