Используя рекурсию, запрограммируйте функцию evenSum :: integral a => [a] -> A, которая возвращает сумму тех элементов списка чисел, которые четны (четны). evenSum [1,2,3,4] ~>* 6
evenSum [4,3,2,1] ~>* 6
evenSum [] ~>* 0
Поскольку мы хотим, чтобы вы запрограммировали функцию с рекурсии, в этой задаче вводятся следующие ограничения:

у вас нет фильтра, карта, concatMap, выражения производится, foldl, foldr1, foldl1, молния, zipWith, zip3, zipWith3 и сумма функций (некоторых других аналогичных функций от прелюдии, которые выходят за рамки данной статьи также отключаются);

- классификация соревнования;

- состав участников (возраст, рейтинг и т.д.);

- условия, определяющие допуск организаций и спортсменов к соревнованиям;

- численные составы команд (спортсмены, тренеры, специалисты, судьи и т.п.);

- запрещено противоправное влияние на результаты официальных спортивных соревнований и участие в азартных играх в букмекерских конторах и тотализаторах путем заключения пари на официальные спортивные соревнования в соответствии со статьей 26.2 Федерального закона от 04.12.2007 № 329-ФЗ «О физической культуре и спорте в Российской Федерации».

Объяснение:

На C++:

#include <iostream>

#include <cmath>

using namespace std;

int main() {

setlocale(0, "RU");

int a, b, c;

cout << "Введите коэффициенты уравнения: ";

cin >> a >> b >> c;

cout << "D = b^2 - 4 * a * c\n";

cout << "D = " << b * b << " - " << 4 * a * c << endl;

double D = (b * b) - (4 * a * c);

cout << "D = " << D << endl;

int d = sqrt(D);

cout << "vD = " << endl << endl;

a *= 2;

int x1 = (-b - d) / a;

int x2 = (-b + d) / a;

cout << "x1 = (-b - vD) / 2a = " << x1 << endl;

cout << "x2 = (-b + vD) / 2a = " << x2;

return 0;

}