[Youdid]

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

__________________________________________________ ________________
кто сможет решить выложите ответ на форум и на мой мэил
djstasco@yandex.ru

[Kingcss]

if Length(IntToStr(chislo))=2 then
Двоякое

[Aristarh Dark]

Kingcss, вот вам информация к размышдению: 21222112 - двоякое число

[YVitaliy]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var value,ovalue,c:Integer;
o:byte;
th: set of 0..9;
begin
  th:=[];
  value:=strtointdef(edit1.Text,0);
  c:=0;
    while (value>0) and (c<=2) do begin
    ovalue:=value;
    value:=value div 10;
    o:=ovalue-value*10;
      if not(o in th)  then inc(c);
      th:=th+[o];
    end;
  if c<=2 then
  showmessage('Двоякое') else
  showmessage('Недвоякое');
end;

[Aristarh Dark]

YVitaliy, можно проще - вообще не используя числовых типов данных, работая только со стоками.

[Yurk@]

навскидку:

Код:

var
str :string;
i:inetger; 
...
str:=Edit1.Text;
for i:=1 to 2 do
  str:=StringReplace(str,str[1],'',[rfReplaceAll, rfIgnoreCase]);
if Length(str)=0 
  then Двоякое;

[Aristarh Dark]

Yurk@, прикольный вариант

[YVitaliy]

Ну, зато мой вариант в 3 раза быстрее! Как минимум...

[Youdid]

Большое пасибо Я СДАЛ КУРСОВИК