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

Fromm Hanna
Oct 24, 2020
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
24
Смежные вопросы: