Ответы на вопрос:
Pascal: var n: integer; f: boolean; begin f: =false; repeat write ('n = '); readln (n); until (n> =1000) and (n< =9999); while (not f) and (n< > 0) do begin if n mod 10 = 4 then f: =true; n: =n div 10; end; if f then writeln ('yes') else writeln ('no'); end. c++: #include < iostream> using namespace std; int main() { int n; bool f = false; while (n< 1000 || n> 9999) { cout < < "n = "; cin > > n; } while (! f & & n! =0) { if (n%10==4) f = true; } if (f) cout < < "yes" < < endl; else cout < < "no" < < endl; return 0; }
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Izilaevapolina14.06.2020 19:07
-
БезумныйКами66611.10.2022 21:21
-
nasti212515.06.2023 16:51
-
GoldenFreddi32214.04.2023 03:27
-
зефирка3921.08.2022 01:08
-
Sestare85201.08.2020 19:04
-
миссЧудесная13.06.2022 13:05
-
2314900431615.09.2021 04:28
-
nastyassddffgbvgg12.05.2022 22:07
-
NaumovaAlina17.02.2022 17:29
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.