Ответы на вопрос:
//pascal var i,n: integer; flag: boolean; begin flag: =false; //такое число еще не найдено i: =13; //первое число,которое в остаке от деления на 7 дает 6 while not flag do begin if (i mod 2=1) and (i mod 3=2)and (i mod 4=3)and (i mod 5=4)and (i mod 6=5)and (i mod 7=6) then begin n: =i; flag: =true; end; i: =i+1; end; writeln('найденное число ',n); end. число = 419
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
parvizmirzoev0330.07.2021 17:11
-
anyanaffanya17.05.2023 15:54
-
katelove825.05.2020 11:55
-
afver821.10.2020 22:35
-
bandit1234113.11.2022 07:06
-
чебурек4827.02.2023 19:51
-
alesyabogun13509.03.2022 03:45
-
Qucha26.03.2023 14:14
-
Enotik037214.06.2021 02:29
-
сом0314.03.2020 07:52
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.