Есть ли в числе 2 одинаковые цифры - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры. Пример: Введите целое число: Введите целое число: 1234 224 Нет. Да. Я упорно не могу понять, где допустила ошибку. Когда вывожу любое число, он пишет "да" и "нет". А должен писать либо да, если есть 2 одинаковые цифры, либо нет, если таковых нет.
Листинг программы
  1. Program qq;
  2. Var a,b,c:integer;
  3. Begin
  4. Writeln ('Vvedite zeloe chislo');
  5. read(a);
  6. while a<>0 do begin;
  7. b:=a mod 10;
  8. a:=a div 10;
  9. if c=b then begin
  10. writeln('da');
  11. end
  12. else
  13. c:=b;
  14. end;
  15. writeln('net');
  16. readln;
  17. end.

Решение задачи: «Есть ли в числе 2 одинаковые цифры»

textual
Листинг программы
  1. #include<iostream>
  2.  
  3. using namespace std;
  4.  
  5. int main()
  6. {
  7.     int *Digits=new int[10]();
  8.     int d;
  9.     cout<<"Enter number:"<<endl;
  10.     cin>>d;
  11.     do
  12.     {
  13.         Digits[d%10]++;
  14.         d/=10;
  15.     }
  16.     while(d!=0);
  17.     bool flag=false;
  18.     d=0;
  19.     while((d<10)&&(flag==false))
  20.     {
  21.         if(Digits[d]>=2) flag=true;
  22.         d++;
  23.     }
  24.     if(flag==true) cout<<"Yes"<<endl;
  25.     else cout<<"No"<<endl;
  26.     delete []Digits;
  27.     getchar();
  28.     return 0;
  29. }

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.8 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы