===== PascalABC.NET =====
function RS(a: array of integer): integer;
begin
var n := a.Length;
Result := a[0];
if n > 1 then
Result += RS(a[1:])
end;
begin
var n := ReadInteger('Число слагаемых:');
var a := ReadArrInteger('Вводите:', n);
RS(a).Println
end.
Зашифровка '100612' с ключём '100500': 000312
Если человек бежит за деньгами, он безумен; если он их держит, он капиталист; если он их тратит,
он плейбой; если он не получает его, он не-делает-хорошо; если он не пытается получить его, ему не хватает
честолюбие. Если он получает его, не работая на него, он паразит; и если он накапливает его после
всю жизнь упорного труда, люди называют его дураком, который никогда ничего не получал от жизни.
Параграф называется "Понятие как форма мышления "
В понятии отражается совокупность существенных признаков отдельного объекта или класса однородных объектов .
Анализ, синтез , сравнение , абстрагирование и обобщение являются основными логическими приемами формирования понятий
Определение понятие - это перечисление всех существенных признаков объекта (класса однородных объектов ) в связном предложении . Каждый из признаков , входящих в определение , должен быть необходимым , а все вместе - достаточны для установления данного понятия
При условии что кроме пробелов и точек других символов или цифр нету, т.к. в задании о них не сказано:
#include <algorithm>
#include <iostream>
using namespace std;
int main()
{
string s;
cout << "Enter string: ";
getline(cin, s);
for (auto i : s) {
if (i == '.') {
cout << count_if(
s.begin(),
s.end(),
[](auto c) {
return c != ' ' && c != '.';
}
) << endl;
}
}
return 0;
}
