Паскаль ! определить хватит ли на покупку а кг яблок нужно

а)

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.

смотря какую.у меня друг делал презинтацию на конкурс совёно он распрашивал всех на каком море кому нравиться потом сделал анкету типо :

на красном море допустим 45%

на чёрном море 15%

ну и т.д. 

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

в скобках указывала основание системы счисления.

1 шаг) переводим в десятичную систему счисления: 631 (7) = 6*7^2 + 3*7^1 + 1*7^0 = 316 (10)

2 шаг) переводим из десятичной системы счисления в двоичную: 316 : 2 = 158 (ост. 0)158 : 2 = 79 (ост. 0)79 : 2 = 39 (ост. 1)39 : 2 = 19 (ост. 1)19 : 2 = 9 (ост. 1)9 : 2 = 4 (ост. 1)4 : 2 = 2 (ост. 0)2: 2 = 1 (ост. 0)

316 (10) = 100111100 (2)

ответ: 100111100