Дано натуральное четырехзначное число,верно ли, что все его цифры различны? написать программу.
103
219
Ответы на вопрос:
var a,b,c,d,e: integer; beginread(a); b: =a mod 10; a: =a div 10; c: =a mod 10; a: =a div 10; d: =a mod 10; a: =a div 10; e: =a mod 10; if (b< > c) and (b< > d) and (b< > e) and (c< > d) and (c< > e) and (d< > e) then write('net povtorov')else write('est povtori'); end.
Var a: longint; k: byte; begin k: =0; write('введите число: '); readln(a); a: =abs(a); while a > 0 do begin if a mod 10 = 4 then k: =1; a: =a div 10 end; if k=0 then writeln('в данном числе нет цифры 4') else writeln('в данном числе есть цифра 4'); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
vaniafatyanov22.08.2020 13:36
-
Nastysha22201.02.2021 08:21
-
Papitto30.01.2021 17:54
-
Алисик98027.03.2023 18:56
-
ksusha58585916.02.2020 15:20
-
faystt14.06.2020 01:42
-
terckovanata12.10.2021 18:23
-
njvbyf04Юля18.02.2023 12:06
-
kektuber222owf6bv04.08.2020 20:09
-
konfetabox16.05.2022 02:44
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.