Напишите программу в паскаль, 50 )) определить количество повторений каждой из цифр 0,1, в числе n! , где n≤9, n-натуральное. напоминание: n! = 1*2*3*4*….*n.

//pascalabc.net //версия 3.3, сборка 1634 function f(n: integer): integer; begin var fx: =1; for var i: =2 to n do fx: =fx*i; f: =fx; end; begin var n: =readinteger('n='); for var i: =0 to 9 do writeln('цифра ',i,' повторяется в числе ',f(n),' ',f(n).tostring.where(x-> x.todigit=i).count,' раз' ); end.

Var   a: array[0..9] of integer; { число повторений }   i,n,d,p: integer; begin   write('n = '); read(n);   for i: =0 to 9 do a[i]: =0; { обнулить счетчики }   p: =1;   for i: =2 to n do p: =p*i;   writeln(n,'! = ',p);   while p> 0 do begin       d: =p mod 10;       a[d]: =a[d]+1;       p: =p div 10       end;   writeln('количество повторений цифр в числе: ');   for i: =0 to 9 do       if a[i]> 0 then write(i,'-',a[i],' ');   writeln end. пример n = 9 9! = 362880 количество повторений цифр в числе: 0-1 2-1 3-1 6-1 8-2 второй вариант // pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('n=');   var p: =2.to(n).aggregate(1,(a,b)-> a*b); // факториал   writeln(n,'! = ',p);   writeln('количество повторений цифр в числе: ');   foreach var i in       p.tostring.groupby(t-> t).select(t-> (t.key,t.(t-> t[0]) do       write(i[0],'-',i[1],' ');   writeln end.

10 в 26-ой степени