Даны два трехзначных числа a и b, a ≤ b. Вывести в порядке возрастания все трехзначные...

Question

Даны два трехзначных числа a и b, a ≤ b. Вывести в порядке возрастания все трехзначные числа из интервала [a;b] у которых первая цифра совпадает с последней. написать программу в паскале

Answer 1

// PascalABC.NET 3.2, сборка 1514 от 11.08.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b):=ReadInteger2('Введите через пробел a и b:');
  for var k:=a div 10 to b div 10 do begin
    var m:=10*k+k div 10;
    if m.between(a,b) then Print(m)
    end
end.

Пример
Введите через пробел a и b: 507 940
515 525 535 545 555 565 575 585 595 606 616 626 636 646 656 666 676 686 696 707 717 727 737 747 757 767 777 787 797 808 818 828 838 848 858 868 878 888 898 909 919 929 939