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

Ответы 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)    endend.ПримерВведите через пробел a и b: 507 940515 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
    • Автор:

      spike
    • 4 года назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years