Запишите оператор для: а) вычисления среднего арифметического переменных x1 и x2, б) уменьшения на единицу значения переменной k в) увеличение на еденицу значения переменной i г) вычисления стоимости покупки, состоящей из нескольких тетрадей, нескольких ручек и нескольких карандашей.

A) (x1 + x2)/2; б) k: = k-1; в) i: = i+1; г) (ptetr*vtetr) + (ppen*vpen) + (pkar*vkar);

// pascalabc.net 3.3, сборка 1573 от 04.11.2017 // внимание! если программа не работает, обновите версию! begin   var st: ='balloon duster tooth loot cooperation'; // не вводим   // var st: =readlnstring; // если хочется вводить   var s: =st.towords; // массив из слов s[i]   s.println; // показать исходный массив слов   // собственно решение   var i: =s.select(w-> w.length).toarray.indexmin; // индекс короткого слова   s[i]: =s[i].replace('oo','');   s.println; // результат end. результат balloon duster tooth loot cooperation balloon duster tooth lt cooperation

Const n=7; var a: array[1..n,1..n] of char; i,j: integer; begin for i: =1 to n do   for j: =1 to n do   if j< =n-i+1 then a[i,j]: ='*' else a[i,j]: =' '; for i: =1 to n do   begin   for j: =1 to n do write(a[i,j]: 2);   writeln;   end; end. результат:   * * * * * * *   * * * * * *      * * * * *        * * * *          * * *            * *              *