Вычислите
10011²+111²
101010²×101²
1000²-11²

а)

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.

разделим монеты на кучки 1002 1002 и одна монета

1-е взвешивание сравниваем 1002 и 1002

если они одинаковые то они настоящие и значит осталось сравнить одну монету с какой-нибудь из этих кучек и выяснить тяжелее она или легче

если одна из куч тяжелее то ее делим пополам и снова взвешиваем

если половинки оказались одинаковые, значит они настоящие и фальшивая монета легче настоящей, а если разные то фальшивая монета тяжелее настоящей

проводник - абориген.

потому что если бы он спросил у пришельца, которые всегда лгут, "кто ты? ", то тот солгал, сказав "абориген". и проводник пришел и сказал правду.

а если бы проводник был бы пришельцем, спросив у аборигена "кто ты? ", то абориген   сказал бы правду. но пришелец путешественнику соврал бы, сказав, что тот пришелец.

данное слово - центрирование