Pascal уровень c. ввести натуральное число и определить, верно ли, что в его записи есть две одинаковые цифры (не обязательно стоящие рядом). пример: введите натуральное число: 12342 да. пример: введите натуральное число: 12345 нет. проверьте программу,не работает почему-то program nn; var n,a,b,k,s: integer; begin writeln('введите натуральное число'); readln(n); k: =0; n: =s; while (n> 0) do begin a: =n mod 10; while (n> 0) do begin b: =n mod 100 div 10; if (a=b) then begin k: =k+1; end; n: =n div 10; end; if (k> 0) then writeln('да') else n: =s; n: =n-n mod 10; end; if (k> 0) then writeln ('да') else writeln('нет'); end.
191
403
Ответы на вопрос:
Впрограмме алгоритм неверный, так дубликаты не найти. поэтому программа в основном переделана. var n: integer; a: array[0..9] of boolean; d,i: byte; r: boolean; begin writeln('введите натуральное число'); readln(n); for i: =0 to 9 do a[i]: =false; r: =false; while n> 0 do begin d: =n mod 10; if a[d] then begin r: =true; break end else a[d]: =true; n: =n div 10 end; if r then writeln('да') else writeln('нет') end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
catdog1220.08.2022 02:20
-
Elena40700803.02.2020 03:31
-
Katerinka89011.04.2023 17:54
-
sashaopalko12322.03.2022 12:21
-
Ааааааааввв28.03.2020 22:30
-
izirinee25.01.2020 20:54
-
Zangerange03.01.2020 16:17
-
Йома25.01.2021 15:16
-
TamaraKengurs08.12.2021 02:28
-
lina16mgstar15.03.2022 08:48
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.