Напишите программу, которая в последовательности натуральных чисел определяет количество всех чётных чисел, кратных 3. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число: количество всех чётных чисел, кратных 3.

Var A,K:integer;
Begin
Read(A);
K:=0;
While A <> 0 do
   Begin
   if A mod 6 = 0 then K:=K+1;
   Read(A)
   End;
Write(K)
End.

#include <iostream>

double multiply(double num1, double num2) {

   if (num2 > 0) return num1 + multiply(num1, num2 - 1);

   else if (num2 < 0) return -num1 + multiply(num1, num2 + 1);

   return 0;

}

signed main() {

   

   //2.2 * 2

   std::cout << multiply(2.2, 2) << std::endl;

   //4 * 2

   std::cout << multiply(4, 2) << std::endl;

   //-8 * 2

   std::cout << multiply(-8, 2) << std::endl;

   //0*1

   std::cout << multiply(0, 1) << std::endl;

   return 0;

}

Объяснение:1.     В ячейке A1 ввести название аргумента Х.

2.     В ячейке A2 ввести название функции F(x).

3.     В ячейке B1 ввести начальное значение интервала табулирования 0.

4.     В строке меню «Главная» в группе «Редактирование» нажмите на кнопку  «Заполнить» - «Прогрессия». Выберите расположение по строкам – Шаг 0,2 – Предельное значение 2 – ОК. В результате в строке появляется ряд значений аргумента х

5.     В ячейке B2 ввести формулу =КОРЕНЬ(B1)/(B1+1).

6.     Методом автозаполнения скопировать ее в ячейки C2:L2. Этот метод заключается в следующем: выделить ячейку B2, встать на маркер заполнения в правом нижнем углу ячейки, нажать левую клавишу мыши и протащить ее до ячейки L2. В результате в этих ячейках появится значение функции при соответствующих значениях х.

7.     В строке меню «Главная» в группе «Ячейка» нажмите на кнопку «Формат» - «Формат ячеек». Далее выберите вкладку «Граница» и оформите таблицу.

8.     Щелчком на первой ячейке выделите строку. В строке меню «Главная» в группе «Ячейка» нажмите на кнопку «Вставить» - «Вставить строки на лист».

9.     В новой строке сделать объединение ячеек, ввести заголовок.

Построение графика.

10.                       Выделить ячейки B3:L3.

11.                       В строке меню Вставка, в группе Диаграммы, нажмите на кнопку График, выберите тип График.

12.                       Выделите диаграмму, щелкнув на нее левой кнопкой мыши.

13.                       В появившемся окне Работа с диаграммами выберите Макет.

14.                       В группе Данные нажмите Выбрать данные, Подписи горизонтальной оси, Изменить, в Диапазоне подписей оси поставьте курсор, мышью в рабочем окне выделите ячейки В2:L2 (там , где находятся значения Х), ОК, ОК.

15.                       В группе Подписи нажмите на кнопку Название диаграммы.

16.                       Введите название График функции.