Есть ли в числе 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;
}

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

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

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

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

Похожие ответы