найти все четырехзначные числа, в которых ровно две одинаковые цифры (турбо паскаль)

[SkuLLL]

Ребят помогите начинающему программисту(второй курс), объясните как найти все четырехзначные числа, в которых ровно две одинаковые цифры. Буду вам очень признателен.

[Serge_Bliznykov]

думаю, что есть много способов решить эту задачу.
предложу Вам не самый эффективный, зато самый (на мой взгляд) понятный и простой.
заводите массив из десяти элементов (например: CountDigit)
с идексами от нуля до девяти. В каждом элементе хранить, сколько раз встречается данная цифра.
примерно так:

var i,Num,OneDigit : integer; 
    CountDigit : array[0..9] of integer;

begin
  WriteLn;
  Write('Vvedite chislo: ');
  Readln(Num);

  {занулим массив с счётчиками}
  for i:=0 to 9 do CountDigit[i] := 0;

  while Num>0 do begin
      OneDigit := Num mod 10; {берём очередную цифру из числа}
      Num := Num div 10; {отбрасываем эту цифру, число "сдвигаем" }
      inc(CountDigit[OneDigit]); {увеличиваем счётчик этой цифры}
  end;

А теперь всего лишь нужно проверить.
чтобы в массиве CountDigit
1) не было цифр больше 2-ки
2) 2-ка встречалась РОВНО один раз.
Оставляю это на самостоятельную работу!

[SkuLLL]

Спасибо большое ,но мы еще не изучали массивы(((
но начало у меня есть, может кто-нибудь сможет продолжить?

Program Ex_1;
var a, b, c, d, e: integer;
begin
writeln('Введите число');
readln(a);
b:= a mod 10;{Тысячи}
c:= a div 10;{Сотни}

А вот десятки и еденицы не знаю как вывести

[Serge_Bliznykov]

b:= a mod 10;{Тысячи}
c:= a div 10;{Сотни}

неправильно.

ну, можно и так решить эту задачу:

var 
 a,b,c,d, N : integer; 
begin
 WriteLn('Введите число:');
 Readln(N);


 a:= N div 1000;
 b:= N div 100 mod 10;
 c:= N mod 100 div 10;
 d:= N mod 100 mod 10;

 WriteLn('Тысяч: ', a);
 WriteLn('Сотен: ', b);
 WriteLn('Десяток: ', c);
 WriteLn('Единиц: ', d);

 if ((a=b) and (a<>c) and (a<>d) and (c<>d))
   or
    ((a=c) and (a<>b) and (a<>d) and (b<>d))
   or
    ((a=d) and (a<>b) and (a<>c) and (b<>c))
   or
    ((b=c) and (b<>a) and (b<>d) and (a<>d))
   or
    ((b=d) and (b<>a) and (b<>c) and (a<>c))
   or
    ((c=d) and (c<>a) and (c<>b) and (a<>b))
    then Writeln('Есть ровно две одинаковые цифры')
    else Writeln('Условие не выполняется!');

 ReadLn;
end.

p.s. плохому Вас учат.
Мой пример и короче. И без проблем сработает, например, с шестизначными числами (только тип integer заменить на longint) и всё.. А представляете, сколько нужно переменных и сколько проверок надо в этом случае писать для решения по Вашему алгоритму?!

[SkuLLL]

Спасибо за помощь, Просто мы только начинаем изучать паскаль, массивы еще не проходили наверно недели через две начнем их изучать

[Apakov]

Спасибо парни) мне тоже помогло) только я не второй курс, а 9 класс) хаха)