При условии что кроме пробелов и точек других символов или цифр нету, т.к. в задании о них не сказано: #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; }
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,10,99); a.Println(3); Writeln(3*a.ColCount*'-'); var b:=a.Cols.Select(c->c.Max).ToArray; foreach var x in b do Write(x:3); Writeln end.
㏒₂100 ≈ 6.64 бита