Определить все четырехзначные числа произведение цифр которых равно заданному числу k. вывести эти числа на экран монитора и определить количество
114
446
Ответы на вопрос:
Var k,i1,i2,i3,i4,n: integer; begin readln(k); n: =0; for i1: =1 to 9 do for i2: =0 to 9 do for i3: =0 to 9 do for i4: =0 to 9 do if i1*i2*i3*i4=k then begin write(i1*1000+i2*100+i3*10+i4,' '); n: =n+1; end; writeln; writeln('n = ',n); end. пример: 20 1145 1154 1225 1252 1415 1451 1514 1522 1541 2125 2152 2215 2251 2512 2521 4115 4151 4511 5114 5122 5141 5212 5221 5411n = 24
Program d; var s,i,a,n: integer; begins: =0; a: =8; read(n); for i: =1 to n do begins: =s+a mod 2; writeln('s=',s); endкак-то так. сама проходила тот ужас, так что понимаю вас.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
08Dasha0625.06.2023 02:23
-
sdsdsgttu30.12.2020 13:57
-
matgim1707.01.2020 05:35
-
Vladamira5516.10.2020 03:03
-
zuzin7731.03.2022 06:25
-
aasybas28.04.2022 06:21
-
Lizzza111126.09.2022 17:10
-
xaxon9323.02.2020 09:26
-
mrlams28814.10.2020 05:19
-
Барбоси14.06.2023 14:00
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.