На языке си. последовательно вводятся целые положительные числа. для каждого числа выяснить, является ли оно факториалом какого либо числа. если да, то вывести число, факториалом которого является введённое, если нет, то вывести сообщение об этом. признаком конца ввода является ввод нуля.
.
// Внимание! Если программа не работает, обновите версию!
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