Есть ли в числе 2 одинаковые цифры - Turbo Pascal
Формулировка задачи:
Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры.
Пример:
Введите целое число: Введите целое число:
1234 224
Нет. Да.
Я упорно не могу понять, где допустила ошибку. Когда вывожу любое число, он пишет "да" и "нет". А должен писать либо да, если есть 2 одинаковые цифры, либо нет, если таковых нет.
Листинг программы
- Program qq;
- Var a,b,c:integer;
- Begin
- Writeln ('Vvedite zeloe chislo');
- read(a);
- while a<>0 do begin;
- b:=a mod 10;
- a:=a div 10;
- if c=b then begin
- writeln('da');
- end
- else
- c:=b;
- end;
- writeln('net');
- readln;
- end.
Решение задачи: «Есть ли в числе 2 одинаковые цифры»
textual
Листинг программы
- #include<iostream>
- using namespace std;
- int main()
- {
- int *Digits=new int[10]();
- int d;
- cout<<"Enter number:"<<endl;
- cin>>d;
- do
- {
- Digits[d%10]++;
- d/=10;
- }
- while(d!=0);
- bool flag=false;
- d=0;
- while((d<10)&&(flag==false))
- {
- if(Digits[d]>=2) flag=true;
- d++;
- }
- if(flag==true) cout<<"Yes"<<endl;
- else cout<<"No"<<endl;
- delete []Digits;
- getchar();
- return 0;
- }
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д