На языке си. последовательно вводятся целые положительные числа. для каждого числа выяснить, является ли оно факториалом какого либо числа. если да, то вывести число, факториалом которого является введённое, если нет, то вывести сообщение об этом. признаком конца ввода является ввод нуля. .

// 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.

Пример
Количество строк и столбцов в массиве: 6 9
*** Исходный массив [6,9] ***
 76 48 41 62 74 39 98 72 33
 90 71 96 66 40 51 43 68 46
 30 81 52 55 20 47 64 56 45
 96 71 27 31 32 77 33 44 57
 33 97 32 60 38 84 51 74 66
 41 40 88 59 54 84 86 38 86

 96 97 96 66 74 84 98 74 86

При условии что кроме пробелов и точек других символов или цифр нету, т.к. в задании о них не сказано:
#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;
}