Ответы на вопрос:
o__o
var i, s : integer; begin
for i : = 1000 to 9999 do if (i * 4 > = 1000) and (i * 4 < = 9999) then begin s : = i * 4; if ((i mod 100) div 10 = ( s div 1000)) then if ((i mod 10) = ( s mod 1000) div 100) then if ( i div 1000 = (s mod 100) div 10) then if ( ((i mod 1000 div 100) < > i div 1000) and ((i mod 1000 div 100) < > (i mod 100) div 10) and ((i mod 1000 div 100) < > i mod 10)) then if ( (s mod 10 < > s div 1000) and (s mod 10 < > (s mod 1000) div 100) and (s mod 10 < > (s mod 100) div 10)) then writeln(i, ' = ', i * 4); end;
readln; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
sanekYakimov30.05.2023 00:44
-
daryankaa108.08.2021 13:39
-
gvg425.07.2021 00:09
-
diana2010200709.10.2021 00:24
-
Rozeta200309.04.2022 13:07
-
КучеренкоИнна05.10.2022 21:45
-
Знайка5000000008.08.2021 16:40
-
xxxxxxxx1318.11.2021 13:38
-
konox201206.11.2020 17:33
-
Mаs9n905.09.2021 01:10
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.