Опишите процесс выполнения операторов присваивания. a: =3; b: =4; a: =a+b запишите операторы для: вычисления среднего арифметического переменных х1 и х2. уменьшения на единицу значения переменной к. увеличения на единицу значения переменной i. вычисления стоимости покупки, состоящей из нескольких тетрадей и такого же количество обложек.

Пусть s -  ср.арифм. s  : = (x1 +x2)/2 k : = k-1 i : = i+1 пусть n  - количество тетрадей, m - цена одной тетради, h - цена одной обложки, s - стоимость всей покупки, тогда s : = (m+h)*n

1) const   n = 25; var   a : array[1..n] of integer;   i, kol, sum : integer; begin   randomize;   for i: = 1 to n do       a[i]: = random(50);     sum: = 0; kol: = 0;   for i: = 1 to n do       if a[i] mod 2 = 0 then       begin           inc(kol);           sum: = sum + a[i];       end; end. 2) const   n = 25; var   a : array[1..n] of integer; begin   randomize;   for i: = 1 to n do       a[i]: = random(50);         for i: = 1 to n do       if a[i] mod 2 = 0 then           a[i]: = sqr(a[i])       else           a[i]: = a[i] * 2; end.

Var   a, b, c, del : integer; begin   write('введите число a: ');   readln(a);   write('введите число b: ');   readln(b);   write('введите число c: ');   readln(c);   write('введите делитель: ');   readln(del);   write('число ', del, ' является делителем таких  чисел:   ');   if a mod del = 0 then write(a, ' ');     if b mod del = 0 then write(b, ' ');     if c mod del = 0 then write(c, ' '); end.