Определите результат работы функции входном значении, равном 123456:

function qq(x: integer):integer;

var i, s: integer;

begin

s:=0;

while x > 0 do begin

s:= 10*s + x mod 10;

x:= x div 10;

end;

qq:= s;

end;

надо налить половину пятилитрового бидона= 2,5 л и еще налить половину трехлитрового бидона = 1,5 л. (2,5+1,5=4л). в большом восьмилитровом бидоне останется  как раз 4 литра.  а 1,5 литра из трехлитрового бидона перелить в пятилитровый и в нем тоже будет 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.

смотри скриншот                                    

                                                              алгоритм перехода улицы по свотофору

1.посмотреть какой цвет на светофоре

2.если зеленый то посмотреть направо 

3.посмотреть налево

4.если машын нету, то начать переходить

5.дойти до островка и снова  посмотреть направо и налево и перейти дорогу

                                                                  алгоритм посадки дерева

1.взять лопату и выкопать ямку, положыть лопату

2.взять садженец и поставить его в ямку

3.взять ведро и полить садженец, положыть ведро

4.взять лопату и закопать садженец, положыть лопату

5.взять ведро и полить садженец, положить ведро