Найти сколько чисел от 10 до 1000 включительно, в которых есть

Ответ:

чисел с повторяющимися цифрами 262

Разъясненье:

var s,i,a,b,c:integer;

begin

s:=1; // 1000  включили

for i:=10 to 999 do

begin

if ilt;100 then  

   begin if ((i div 10)=(i mod 10)) then s:=s+1;end

else  

   begin  

    a:=(i div 100);//1-я

    b:=(i div 10) mod 10; //2-я

    c:=(i mod 100) mod 10 ;//3-я

    if ((a=b)or (b=c) or (a=c)) then s:=s+1;

    end;  

end;

writeln('чисел с циклическими цифрами ',s);

end.