Найти сумму целых положительных нечетных чисел, меньших 200

  uses crt;   var s,i: integer;   begin   s: =0;   for i: =1 to 199 do   if (i mod 2< > 0) then   s: =s+i;   writeln(s);   end.  

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

1.найти разность показаний счетчика на конец месяца и на начало месяца.

2.умножить на цену одного квт/часа