Question

вывести на экран все трехзначные числа в которых хотя бы две цифры повторяются

задачка в паскале

Answer 1

var a,b,c,d:integer;
begin
    a:=100;
   repeat
     b:=a mod 10;
     c:=(a div 10) mod 10;
     d:=((a div 10) div 10) mod 10;
     if(b=c) or (c=d) or (b=d) then writeln(a);
     inc(a);
   until(a>999);
   readln;
end.