30 ! найдите десятичные эквиваленты чисел по их прямым , записанные в 8-разрядном формате со знаком: 00011001 10011001 30 !
171
353
Ответы на вопрос:
Var n,a,d,k: integer; begin write('n = '); readln(n); for n: = 1 to n do begin a: =n; k: =0; d: =0; while a> 0 do begin k: =k+1; if a mod 10 < > 0 then if n mod (a mod 10) = 0 then d: =d+1; a: =a div 10; end; if k = d then writeln(n) end; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
kazD0103.02.2022 10:37
-
astraelenap01fez17.12.2021 13:22
-
cimuzoro18.06.2021 15:58
-
Scorpionoid17.11.2021 16:01
-
ximik120926.01.2021 00:37
-
chistikpozitiv29.11.2020 07:48
-
Лкь4иц23.06.2020 17:11
-
TastyDonut31.03.2023 01:50
-
Qwtyt03.06.2022 20:06
-
OligCh21.04.2022 19:50
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.