Составьте 5 задач на использование операций DIV и MOD в Pascal ABC, с решениями.

54 тройки.

Объяснение:

Я не придумал ничего умнее, чем просто выписать все 20 членов этой последовательности.

20-ый член оказался чудовищным набором цифр:

1113.122113.121113.222123.21121113.12111213.111213.21123.113.213.221121113.122113.12112

213.21123.113.213.221121113.122113.11123.113.3.221121113.122113.121113.22111213.1221123.

13.11123.1121123.22211213.2113.213.22113.3.11213.2113.2213.21123.113.11222113.2213.2

11213.123.21123.113.112221121113.121113.121113.123.1121123.22111213.2113.22213.12113.211

Нетрудно подсчитать, что троек здесь 54 штуки.

// Массив из "a" заполнил псевдорандомными числами от 0 до 3 для наглядности

using System;

namespace ConsoleApp1

{

   internal class Program

   {

       private static void Main()

       {

           const int numsCount = 24;

           const int resCount = 10;

           double[] nums = new double[numsCount];

           double[] res = new double[resCount];

           var rand = new Random();

           for (int i = 0; i < numsCount; i++)

           {

               nums[i] = rand.Next(0, 4);

               Console.WriteLine($"a[{i}] = {nums[i]}");

           }

           Console.WriteLine();

           for (int i = 1; i <= resCount; i++)

           {

               double sum = 0;

               for (int j = 0; j < numsCount; j++)

                   sum += Math.Pow(nums[j], i);

               res[i - 1] = sum;

               Console.WriteLine($"b[{i - 1}] = {sum}");

           }

           Console.ReadLine();

       }

   }

}