1.составьте логическую схему для заданного выражения 2.постройте таблицу истинности для заданного логического выражения

Div - целая часть от деления  

Mod - остаток от деления.

(a mod 2 = 1) and (b mod 4 = 1)

A делённое на 2 до тех пор, пока остаток будет равным 1, то истинна и если B делённое на 4 до тех пор, пока остаток будет равным 1, то оно тоже истинно.

Подставим переменные и получим: (5 mod 2 = 1) и (b mod 4 = 1)

ответ: истинна.

not (a+b > c)

Так как Not - логическое отрицание, то (a+b < c)

Подставим переменные и получим: (5+9 < 0)

ответ: ложь.

(abs(a) = a) and (-b > -a)

abs(a) - возращает модуль числа A.

Подставим переменные и получим: (5 = 5) и (-9 > -5)

ответ: ложь.

not (a >= b)

Будет (a <= b)

Подставим переменные и получим: (5 <= 9)

ответ: истинна.

(c <> 0) or (sqrt(b) = a-2)

sqrt(b) - квадратный корень из числа B.

Подставим переменные и получим: (0 <> 0) или (3 = 5-2)

(b > sqr(a)) or (b div a >= 1)

Подставим переменные и получим: (9 > 2,24) или (9 div 5 >= 1)

ответ: истинна.

Var  a, d, n, i, otv: integer;

begin

  read(a,d,n);                                - ввод всех значений

  otv:=a;                                        - в переменную где будет храниться

  for i:=1 to n do                              ответ записываем начальный взнос

  begin

     a:=a+d;                                     - увеличиваем в цикле взнос

     otv:= otv + (a);                         - добовляем взнос к нашему ответу

  end;

  writeln(otv);                                 - выводим ответ

end.