В Word написать эссе с цепью, объектом и т. д. на тему " "Школе" время, а потехе час"​

var

  k, i, n: integer;  //k - данное число, n - количество делителей числа k

  s: real;  //s - сумма делителей числа k

 

begin

  n:= 0;  //Обнуляем счетчики

  s:= 0;

  writeln('Введите целое число');

  readln(k);  //Вводим число k

  for i:= 1 to k do  {Проверяем какие числа от 1 до k являются делителями числа k}

    if k mod i = 0 then   {Если k делится без остатка на i, то прибавляем число i к сумме и прибавляем к счетчику 1}

    begin

      n:= n + 1;

      s:= s + i;

    end;

  writeln('Среднее арифметическое делителей числа ', k, ' равно: ', s / n : 0 : 5);  {Выводим среднее арифметическое делителей с округлением до 5 знаков после запятой}

end.

#include <iostream>
#include <string>
int main()
{
    using namespace std;

    //1й пункт
    string s1 = "Computer programming (often shortened to programming) is a process";
    for (int i = 2; i < s1.size(); i = i + 3)
        cout << s1[i];
    cout << endl;

    //2й пункт
    string s2 = "Programming involves activities such as analysis, developing understanding";
    for (int i = 1; i < s2.size(); i = i + 2)
        if (s2[i] != 'a' && s2[i] != 'b')
            s2[i] = 'a';
        else
            s2[i] = 'c';
    cout << s2 << endl;

    return 0;
}