Высказывания А, В, С истинны для точек, принадлежащих кругу, треугольнику и
прямоугольнику соответственно. Для всех точек выделенной на рисунке области истинно высказывание

1) ( А или В ) и В

2) ( С и не А ) и не В

3) ( В или С ) и не С

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,3,6,4,11,5,16,6

б)9,7,10,8,11,9,12,10

в)3,2,1,6,5,4,9,8,7

трактор

ель

корова

слон

тигр

если не трудно отметь моё решение лучшим.

(если не знаешь,это и тебе даёт +4пкт.)

так:

                                думаю тебе алгаритм ветвения,он состаит из вывода,условия,и начала,конца.

                                                  если ошибся,поправьте.

                                                  начало

                                                  вывод(указываем переменные,a,b.ну и т.д.)

                да                               условие(к примеру: a> =b)           нет                                                                            

          если х=a+b                                                                                 иначе х=a/b

                                                ну и дальше вывод,и конец.

                                        вывод

                                        конец.

простите,что данный алгаритм написан не достаточно хорошо,ну думаю вам .