2 задачи на паскале,1 массив и одна вообще простая.

[Deamonig]

2-й Масив содержыт уже все искаемые числа, и в конце я вывожу что 1 такое число = 11 и 2-е =22 и т.д.

[ОДИНОЧЕСТВО В СЕТИ]

извините а в числах 123 145 167 213 257 и т.д. где 2 одинаковые цифры? это результат работы вашей программы!

[Deamonig]

Масив для того если например числа будут идти не 0 1 2 3 и т.д. а сам пользователь захочет их поменять, то без массива никак )

[Deamonig]

говорю же сам не тестил, по быстрому написал, ошибся в месте где поставить or. Что поделаеш, бывает, вверху уже все исправлено )

[russian-stalker]

Навскидку:

program Project2;
var
i:integer;
s:string;

begin
  for i:=0 to 1000 do
  begin
     str(i,s);
     if (length(s)=2) and (s[1]=s[2]) then
        writeln(s);
     if (length(s)=3) and (s[1]=s[2]) or (s[1]=s[3]) or (s[2]=s[3]) then
        writeln(s);
     if (length(s)=4) and (s[1]=s[2]) or (s[1]=s[3]) or (s[2]=s[3]) or (s[1]=s[4]) or (s[2]=s[4]) or (s[3]=s[4]) then
        writeln(s);
  end;
  readln;
end.