Информатика 9 класс, Паскаль. Надо составить программу. Фотографии предоставлена ниже.

-a*b+c                                                                                                     

not a and b or c

слева сколько воды находится в кувшинах

8 - 0 : 1. наливаем в кувшин 8 л

5 - 3 : 2. переливаем из 8 л кувшина в 3 литровый, и выливаем в реку

2 - 3 : 3. переливаем из 8 л кувшина  3 литровый и выливаем в реку

0 - 2 : 4. переливаем оставшиеся 2 л из 8 литрового в 3 литровый кувшин

8 - 2 : 5. наливаем воду в 8 л кувшин

7 - 3 : 6. наливаем воду из 8 л кувшина в 3 л пока он не заполниться, т.е. наливаем туда 1 л, в 8 л кувшине остается 7 литров.

// pascalabc.net

// версия 3.3.5 сборка 1662 (29.04.2018)

а

begin

    println('кол-во символов -',readstring('слово-> ').length)

end.

пример:

741258963

кол-во символов - 9

б

begin

    var s: =readstring('слово-> ').tolower;

    println(s[1]=s[s.length]? '': 'не ');

end.

пример:

слово-> олово

в

begin

    var s: =readstring('слово-> ');

    println(s[1],s[2],s[s.length]);

end.

пример:

слово-> плотина

п л а

г

begin

    println(readstring('слово-> ').length mod 2=0? 'четно': 'нечетно');

end.

пример:

слово-> виноград

четно

program xxx;

    var i, n : integer;

              a, s : real;

                    b : array [1..20] of real;

begin

  writeln('введите число а=');

  readln(a);

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива b: ');

  for i: =1 to n do

        readln(b[i]);

  writeln('исходный массив b: ');

  for i: =1 to n do

        writeln(b[i]);

  s: =0;

  for i: =1 to n do

      if b[i] > a then s: =s+b[i];

  writeln('сумма элементов =', s);

  readln

end.