Вдоме проживает 10 жильцов. подсчитать, сколько каждый из них должен платить за электроэнергию и определить суммарную плату для жильцов. известно, что 1 квт ч электроэнергии стоит m рублей, а некоторые жильцы имеют 50% скидку при оплате.

// pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! begin   var a: =readarrinteger('-> ',35);   var s: =0;   var k: =0;   for var i: =0 to 34 do begin       s+=a[i];       if a[i]=5 then k+=1       end;   writeln('средний ',s/35: 4: 2);   writeln('количество пятерок- ',k) end. пример -> 4 4 2 4 5 2 3 3 4 3 2 3 2 4 4 2 4 2 4 5 2 2 5 4 4 2 4 2 4 5 5 2 3 3 4 средний 3.34 количество пятерок- 5

Чтобы уменьшить количество вычислений, преобразуем формулу к рекуррентной. теперь все готово для программирования. // pascalabc.net 3.2, сборка 1353 от 27.11.2016 var   i,n: integer;   a,s: real; begin   write('n='); read(n);   if n=1 then writeln('s=1')   else       if n=2 then writeln('s=0.5')       else begin           s: =0.5; a: =0.5;           for i: =3 to n do begin a: =a/i; s: =s-a end           end;   writeln('s=',s) end. пример n=10 s=0.281718198853615