Получить все четырехзначные натуральные числа, в записи которых нет двух одинаковых цифр.

Надо — получай сколько в ответ влезет (лимит
1023 1024 1025 1026 1027 1028 1029 1032 1034 1035 1036 1037 1038 1039 1042 1043 1045 1046 1047 1048 1049 1052 1053 1054 1056 1057 1058 1059 1062 1063 1064 1065 1067 1068 1069 1072 1073 1074 1075 1076 1078 1079 1082 1083 1084 1085 1086 1087 1089 1092 1093 1094 1095 1096 1097 1098 1203 1204 1205 1206 1207 1208 1209 1230 1234 1235 1236 1237 1238 1239 1240 1243 1245 1246 1247 1248 1249 1250 1253 1254 1256 1257 1258 1259 1260 1263 1264 1265 1267 1268 1269 1270 1273 1274 1275 1276 1278 1279 1280 1283 1284 1285 1286 1287 1289 1290 1293 1294 1295 1296 1297 1298 1302 1304 1305 1306 1307 1308 1309 1320 1324 1325 1326 1327 1328 1329 1340 1342 1345 1346 1347 1348 1349 1350 1352 1354 1356 1357 1358 1359 1360 1362 1364 1365 1367 1368 1369 1370 1372 1374 1375 1376 1378 1379 1380 1382 1384 1385 1386 1387 1389 1390 1392 1394 1395 1396 1397 1398 1402 1403 1405 1406 1407 1408 1409 1420 1423 1425 1426 1427 1428 1429 1430 1432 1435 1436 1437 1438 1439 1450 1452 1453 1456 1457 1458 1459 1460 1462 1463 1465 1467 1468 1469 1470 1472 1473 1475 1476 1478 1479 1480 1482 1483 1485 1486 1487 1489 1490 1492 1493 1495 1496 1497 1498 1502 1503 1504 1506 1507 1508 1509 1520 1523 1524 1526 1527 1528 1529 1530 1532 1534 1536 1537 1538 1539 1540 1542 1543 1546 1547 1548 1549 1560 1562 1563 1564 1567 1568 1569 1570 1572 1573 1574 1576 1578 1579 1580 1582 1583 1584 1586 1587 1589 1590 1592 1593 1594 1596 1597 1598 1602 1603 1604 1605 1607 1608 1609 1620 1623 1624 1625 1627 1628 1629 1630 1632 1634 1635 1637 1638 1639 1640 1642 1643 1645 1647 1648 1649 1650 1652 1653 1654 1657 1658 1659 1670 1672 1673 1674 1675 1678 1679 1680 1682 1683 1684 1685 1687 1689 1690 1692 1693 1694 1695 1697 1698 1702 1703 1704 1705 1706 1708 1709 1720 1723 1724 1725 1726 1728 1729 1730 1732 1734 1735 1736 1738 1739 1740 1742 1743 1745 1746 1748 1749 1750 1752 1753 1754 1756 1758 1759 1760 1762 1763 1764 1765 1768 1769 1780 1782 1783 1784 1785 1786 1789 1790 1792 1793 1794 1795 1796 1798 1802 1803 1804 1805 1806 1807 1809 1820 1823 1824 1825 1826 1827 1829 1830 1832 1834 1835 1836 1837 1839 1840 1842 1843 1845 1846 1847 1849 1850 1852 1853 1854 1856 1857 1859 1860 1862 1863 1864 1865 1867 1869 1870 1872 1873 1874 1875 1876 1879 1890 1892 1893 1894 1895 1896 1897 1902 1903 1904 1905 1906 1907 1908 1920 1923 1924 1925 1926 1927 1928 1930 1932 1934 1935 1936 1937 1938 1940 1942 1943 1945 1946 1947 1948 1950 1952 1953 1954 1956 1957 1958 1960 1962 1963 1964 1965 1967 1968 1970 1972 1973 1974 1975 1976 1978 1980 1982 1983 1984 1985 1986 1987 2013 2014 2015 2016 2017 2018 2019 2031 2034 2035 2036 2037 2038 2039 2041 2043 2045 2046 2047 2048 2049 2051 2053 2054 2056 2057 2058 2059 2061 2063 2064 2065 2067 2068 2069 2071 2073 2074 2075 2076 2078 2079 2081 2083 2084 2085 2086 2087 2089 2091 2093 2094 2095 2096 2097 2098 2103 2104 2105 2106 2107 2108 2109 2130 2134 2135 2136 2137 2138 2139 2140 2143 2145 2146 2147 2148 2149 2150 2153 2154 2156 2157 2158 2159 2160 2163 2164 2165 2167 2168 2169 2170 2173 2174 2175 2176 2178 2179 2180 2183 2184 2185 2186 2187 2189 2190 2193 2194 2195 2196 2197 2198 2301 2304 2305 2306 2307 2308 2309 2310 2314 2315 2316 2317 2318 2319 2340 2341 2345 2346 2347 2348 2349 2350 2351 2354 2356 2357 2358 2359 2360 2361 2364 2365 2367 2368 2369 2370 2371 2374 2375 2376 2378 2379 2380 2381 2384 2385 2386 2387 2389 2390 2391 2394 2395 2396 2397 2398 2401 2403 2405 2406 2407 2408 2409 2410 2413 2415 2416 2417 2418 2419 2430 2431 2435 2436 2437 2438 2439 2450 2451 2453 2456 2457 2458 2459 2460 2461 2463 2465 2467 2468 2469 2470 2471 2473 2475 2476 2478 2479 2480 2481 2483 2485 2486 2487 2489 2490 2491 2493 2495 2496 2497 2498 2501 2503 2504 2506 2507 2508 2509 2510 2513 2514 2516 2517 2518 2519 2530 2531 2534 2536 2537 2538 2539 2540 2541 2543 2546 2547 2548 2549 2560 2561 2563 2564 2567 2568 2569 2570 2571 2573 2574 2576 2578 2579 2580 2581 2583 2584 2586 2587 2589 2590 2591 2593 2594 2596 2597 2598 2601 2603 2604 2605

programm pr1;
Var i,j: integer;
s,mass: string;
c: Char;
begin
For i := 1000 to 9999 do begin
s := IntToStr(i);
c := s[1];
if (c <> s[2]) and (c <> s[3]) and (c <> s[4]) and (s[2] <> s[3]) and (s[2] <> s[4]) and (s[3] <> s[4]) Then mass := mass + IntToStr(i) + ' ';
End;
Memo1.Lines.Add(mass);
end.

Получай