дача:дано число n.Правдали оно содержит ровно 3 одинаковых цифры

[Dima170792]

Доброго времени суток ув. форумчане.Прошу вашей помощи в решении курсовой задачи по информатике.Язык программирования Borland Delphi 7.Задача состоит в следующем:дано число n.Правдали оно содержит ровно 3 одинаковых цифры ?.если несложно-приведите полный код программы.Заранее спасибо!

[Serge_Bliznykov]

задача немного некорректна..
например, число 111222 содержит РОВНО три одинаковые цифры?!
а число 123123177 - содержит?
а вообще алгоритм (самый простой) - перевести число в строку (через процедуру STR() либо через функцию IntToStr())
потом в цикле брать первую цифру и увеличивать счётчик этой цифр на один, вторую цифру - увеличивать счётчик этой цифры и т.д. до конца строки.
в коде это будет выглядеть примерно так:

var N : longint;
      s : string;
      i : integer;
      Cnt : array[0..9] of integer; {массив для подсчёта количества цифр}
begin
   N := 5778188;
   s := IntToStr(N);
 
   // обнулим массив счётчиков
  for i:=Low(Cnt) to High(Cnt) do  Cnt[i] := 0;

  // основной цикл подсчёта
  for i:=1 to Length(s) do
    Inc(Cnt[ StrToInt(s[i]) ]);

   // тут анализ полученных результатов...
   
end;

p.s. перечитал задачу... если имеется в виду, что условиям задачи отвечает только СТРОГО ТРЁХЗНАЧНОЕ число со всеми одинаковыми цифрами, то задача решается в один оператор!
примерно так:

  if (N>=100) and (N<=999) 
       and (N mod 10)=((N div 10) mod 10)
       and ((N div 10) mod 10)=(N div 100)
    then ShowMessage('Подходит!')
    else  ShowMessage('Число не подходит!')

[Dima170792]

Сообщение от Serge_Bliznykov

p.s. перечитал задачу... если имеется в виду, что условиям задачи отвечает только СТРОГО ТРЁХЗНАЧНОЕ число со всеми одинаковыми цифрами, то задача решается в один оператор!
примерно так:

  if (N>=100) and (N<=999) 
       and (N mod 10)=((N div 10) mod 10)
       and ((N div 10) mod 10)=(N div 100)
    then ShowMessage('Подходит!')
    else  ShowMessage('Число не подходит!')

обьясните пожалуста как организовать ввод числа n в EDIT1,и вывод результата в EDIT2?

[Serge_Bliznykov]

вот так всё плохо, да?...

  N := StrToInt(Edit1.Text);
if (N>=100) and (N<=999) 
       and (N mod 10)=((N div 10) mod 10)
       and ((N div 10) mod 10)=(N div 100)
    then Edit2.Text := 'Число подходит!'
    else  Edit2.Text := 'Число не подходит!';

переменную N объявить сумеете самостоятельно?!

[Dima170792]

Та в том и проблема-язык знаю мало-а преподаватель требует то-чего сама толком не изучала!-мы подопытная группа-раньше все задачи решали в паскале-а тут за пол года в делфи пытаються мастеров создать!
ps. Переменную обьявить смогу!за помощь-большое спасибо!