Поставь вместо букв такие цифры , чтобы равенство оказалось вернымодинаковые буквы обозначают одинаковые цифры, разные буквы-разные цифры) беда нитка наука еда нитка учеба да а ткань работа 8888

Беда +  еда + да  +  а= 8888 8427 + 427 + 27 + 7 = 8888  нитка  +  нитка  =  ткань 15306 + 15306 = 30612 наука  +  учеба  =  работа  40960 + 62830 = 103520

--- PascalABC.NET 3.6.2 ---

begin

var A := ArrRandom(15, -15, 23);

A.Where(p -> p > 0).Sum.Println;

end.

--- Описание использованных методов ---

ArrRandom(n, a, b) -> Возвращает Array of Integer длиной n, заполненный случайными значениями из диапазона [a, b];

.Where(predicate: T -> boolean) - Расширение Array of T (Может быть вызвано для Array of T независимо от типа T), выполняющее фильтрацию массива заданной логической функцией (предикатом). Возвращает Sequence of T.

.Sum - Суммирует элементы итерируемого объекта, для которого вызвано.

.Println - Выводит в консоль значение или строковое представление объекта, для которого вызвано.

#include < fstream> using namespace std; int main() {     long long w, h;     ifstream fin("input.txt");     ofstream fout("output.txt");     fin > > w > > h;     long long s = 0;     for (long long i = 1; i ! = w + 1; ++i) {         for (long long j = 1; j ! = h + 1; ++j) {             s += i * j;         }       }       fout < < s; }