Исполнитель перемещается вдоль ленты, состоящей из 10 ячеек. Ячейка может быть пустой(0) или заполненной (1).
Система команд исполнителя:
- вправо – переместиться вправо на 1 ячейку;
- влево – переместиться влево на 1 ячейку;
- 1 – поместить в ячейку 1;
- 0 – поместить в ячейку 0;
- повтори N [команды] – N раз повторить команды, записанные в скобках;
- если 1 – если ячейка заполнена, то вправо, иначе 1;
- стоп - прекращение действий.
Исходное состояние ленты:

Исполнитель находится в крайней левой ячейке.
Определите состояние ленты после выполнения программы:
повтори 5 [если 1; вправо]
стоп
(ответ запишите в виде последовательности из десяти нулей и един

а)

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   = 1

1 * 2 + 3 - 4 =1

((1+2) : 3 + 4) : 5 =1

1 * 2 - 3 : (4 +5- 6) =1

1 * 2 + (3 + 4   +5) - (6 + 7) =1

((1 + 2): 3)* (4 + 5 + 6): ( 7+8) =1

program p; uses crt,graph; var d,m: integer; beginclrscr; initgraph(d,m,''); setcolor(green) ; line(200,420,300,420); line(300,420,250,330); line(250,330,200,420); line(200,330,300,330); line(300,330,250,240); line(250,240,200,330); line(200,240,300,240); line(300,240,250,140); line(250,140,200,240); readkey; end.