Определить, являются ли два высказывания эквивалентнымиa & (¬ а v в)a v b​

тут и обяснять особо нечего. сначала вычесляем сколько было "остальных" зрителей, потом общую сумму от продажи k1 человекам,  потом общую сумму от продажи k2(остальным) человекам, то и то складываем и присваиваем переменной sum.

program test; var k, k1, k2, c1, c2, sum: integer; begin    k: =894;     k1: =396;     c1: =150;     c2: =200;     k2: =k-k1;     sum: =k1*c1 + k2*c2;     writeln('sum = ', sum, ' rub'); end.

1)

var

  str : string;

begin

  readln (str);

  writeln (length (str) - pos (': ', str));

end.

 

2)

var

  str, s : string;

  count, i : integer;

begin

  readln (str);

  s : = copy (s, pos ('(', str) + 1,  pos (')', str) - pos ('(', str) - 1);

  count : = 0;

  for i : = 1 to length (s) do

    if s[i] = ' ' then inc (count);

  writeln (count + 1);

end.

 

3)

var

  str : string;

  count : integer;

begin

  readln (str);

  count : = 0;

  while pos (',', str) > 0 do

  begin

    inc (count);

    delete (str, pos (',', str), 1);

  end;

  writeln (str);

  writeln (count);

end.

 

сделано без проверки на соответствие условию.