На !
4. в ведомости указана зарплата, выплаченная каждому из сотрудников фирмы
за месяц. определить общую сумму выплаченных по ведомости денег.
5. известны данные о количестве осадков, выпавших за каждый день октября.
верно ли, что по четным числам выпало больше осадков, чем по нечетным?
6. предприниматель, начав дело, взял кредит размером k рублей под p
процентов годовых и вложив его в свое дело. по прогнозам его дело должно
давать прибыль r рублей в год. сможет ли он накопить сумму, достаточную
для погашения кредита, и если да, то через сколько лет?

половина байта, так как одно поле может принимать только 1 из 2 значений, тоесть 1 клетка 1 бит. так как клеток 4, сталобыть это 4 бит. так как 1 байт = 8 бит то 4 бита это половина байта

а)

var

    p,d,h: real;

begin

    readln(h);

    p: =1200*9.8*h;

    writeln(p);

end.

б)

var

    m,h,r: real;

begin

    readln(h);

    readln(r);

    m: =1200*3.14*h*r*r;

    writeln(m);

end;

в) необходимы дополнительные условия количество сосудов

если принять количество сосудов за k тогда

var

    i,k: integer;

    m,h,r,s: real;

begin

    readln(k);

    s: =0;

    for i: =1 to k do

    begin

            readln(h);

            readln(r);

            m: =1200*3.14*h*r*r;

            s: =s+m;

    end;

    writeln(s);

end.

var

a: integer;

begin

readln(a);

writeln(a*(a div 10 + (a mod 10)*10));

end.

var a: array[1..100] of integer;

s,i: integer ;

sr: real;

begin

  {vvod massiva a}

    for i: = 1 to 100 do

        sr: =sr+a[i];

    sr: = sr/100;

    for i: = 1 to 100 do

        if a[i]> sr then

          s: =s+1;

    writeln(s);

end.