Вычислите сумму всех нечетных чисел из десяти вводимых. в паскале.

var n,a,i,k: integer; begin read(n); k: =0; for i: =1 to n do begin read(a); if a mod 2< > 0 then k: =k+a; end; write(k); end.

program summa;

uses crt;

var i,s,n: integer;

begin

      clrscr;

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

      s: =0;  

      for i: =1 to 10 do

            begin

                readln(n);    

 

                if (n mod 2)< > 0 then s: =s+n;  

            end;      

 

      writeln;

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

    readkey;  

end. 

 

 

 

 

1. два способа решения есть : -)  1а. допустим, все карандаши в корзине разные (различим их по молекулярному составу) . тогда информация о молекулярном составе вытащенного карандаша несет log(2)(64) = 6 бит информации. информация о цвете несет 4 бита. значит, 2 бита информации о молекулярном составе несущественны. значит, число карандашей одного цвета разного состава есть 2^2 = 4 штуки.  1б. 4 бита информации описывают одно из 2^4 равновероятных событий, то есть 1 из 16 событий. равновероятны события только, если разных цветов карандашей одинаковое число штук. то есть, 64/16 = 4 штуки.    2. так как не было известно, в каком вагоне поедут, информации имеем log(2) (16) = 4 бита. кроме того, можно считать, что не знали, поедут ли, но тогда расчет усложняется - если не поедут, информация о вагоне не нужна, то есть это - зависимые события. думаю, что в заранее известно, что они таки выезжают, вопрос только в вагоне

Для начала надо найти i(вес 1 символа, т.е чему равен 1 символ в битах) для этого есть формула n=2^i ; n(мощность алфавита) подставляем в формулу мощность алфавита.   64=2^6 значит i=6 бит, а как получил 6 тут просто нужно , 2×2×2×2×2×2=64 , кол.двоек означает вес 1 символа. теперь, чтобы найти i(3 страниц)нужно (кол.страниц×кол.строк×кол.символов×вес 1 символа) i=3×40×60×6=43'200 бит, теперь переведем в байты по условию . 43'200 бит=43'200÷8=5'400байт ответ: 5'400 байт   количество информации содержат 3 страницы.