Задача №3549. Замечательные числа - 5, Pascal

Language: Layout:

{
Задача №3549. Замечательные числа - 5
Даны два четырёхзначных числа A и B. Выведите в порядке возрастания все
четырёхзначные числа в интервале от A до B,
запись которых содержит ровно три одинаковые цифры.
Задача будет проще, если нужно выводить числа, в которых есть три или более одинаковых цифр
Входные данные: водятся два целых числа A и B.
}
var a, b, i, i1, i2, i3, i4 : integer;
begin
    readln (a);
    readln (b);
    for i := a to b do
    begin                       // выделяем цифры числа i
        i1 := i div 1000;
        i2 := i div 100 mod 10;
        i3 := i div 10 mod 10;
        i4 := i mod 10;         // если три цифры равны, а четвёртая нет, то 
        if (i1 = i2) and (i2 = i3) and (i3 <> i4) or
           (i1 = i2) and (i2 = i4) and (i4 <> i3) or
           (i1 = i3) and (i3 = i4) and (i4 <> i2) or
           (i2 = i3) and (i3 = i4) and (i4 <> i1) 
        then
            writeln(i)          // выводим на печать это число.
           
    {           
        if i1 = i2 then
            if i2 = i3 then
                if (i1 <> i4) and (i2 <> i4) and (i3 <> i4) then
                    writeln ( i );
    }
    end;
end.

Show compiler warnings [ - ] Show input
Compilation time: 0.12 sec, absolute running time: 0.07 sec, cpu time: 0.01 sec, memory peak: 3 Mb, absolute service time: 0,38 sec