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

255

269

Посмотреть ответы 3

Ответы на вопрос:

itkrg

Информатика

4,6(79 оценок)

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

Вика2006a

Информатика

4,7(92 оценок)

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.

Sasha2771

Информатика

4,4(40 оценок)

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

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.