Вычислите сумму n натуральных четных чисел, начиная с 2.

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

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

    readln

end.

Так как в корзине 4 груши и 12 яблок, то вероятность достать грушу составляет 4/16 = 1/4 (для яблока 12/16 = 3/4). если существует n равновероятных событий, то вероятность каждого отдельного события равна p=1/n. применяя формулу:   2 в степени i  = n = 1/p получаем i = 2 бита.

var

  a: array[1..5]of integer;

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.