Склавиатуры вводятся 3 числа. найти количество и сумму четных чисел среди них. если среди введенных четных нет, то вывести соответствующее сообщение.

program num3;

uses crt;

var a,b,c,n,s: integer;

begin

      clrscr;

      write('введите 3 числа: ');

      readln(a,b,c);

      n: =0; s: =0;

      if (a mod 2)=0 then 

              begin

                  n: =n+1;

                  s: =s+a;

              end;

if (b mod 2)=0 then 

              begin

                  n: =n+1;

                  s: =s+b;

              end;  

if (c mod 2)=0 then 

              begin

                  n: =n+1;

                  s: =s+c;

              end;

  if (n=0) then writeln('нету чётных чисел вообще ')

          else   writeln('количество чётных чисел: ',n,'их сумма: ',s);      

    readkey;

end.

1. для кодирования одного из такого алфавита достаточно 7 бит. Умножаем на 35 и получаем 245 бит.

2. 9. Уже при 8 во можно точно угадать только 256 чисел, а тут нужно 300, так что 9, при которых можно угадать до 512 чисел

3. = 0.6103515625;

= 0.9765625;

0.79×1024 = 808.96