• Назовем билет с шестизначным номером красивым,если его номер одинаково читается как слева направо, так и с право налево.Сколько

Ответы 1

  • Задача просто решается в программе Pascal ABC. Пусть i - числа из промежутка [189980;205505]. В каждом цикле будем находить первые три цифры числа i, последние три цифры числа i,  находить \"перевертыш\" последних трех цифр числа i, сравнивать первые три цифры числа i с \"перевертышем\" последних трех цифр числа i. Если они будут равны, значит количество счастливых билетов kol увеличиваем на 1. Программа будет иметь вид.

    program zadacha;

    uses crt;

    var i, e, f, j, k, l, m, p, kol: integer;

    begin

    kol:=0; {начальное значение kol}

    for i:=189980 to 205505 do

    begin

    e:=i div 1000; {первые 3 цифры числа i}

    j:=i mod 1000; {последние 3 цифры числа i}

    f:=j mod 10; {3 цифра числа j}

    k:=j div 100; {1 цифра числа j}

    m:=j div 10; {первые 2 цифры числа j}

    l:=m mod 10; {2 цифра числа  j}

    p:=f*100+l*10+k;  {«перевертыш» числа j}

    if e=p then kol:=kol+1; {сравнение первых трех цифр числа i и «перевертыша» числа j }

    end;

    writeln (\'kol=\',kol);  {вывод результата на экран}

    end.

    После выполнения программы получаем ответ kol = 17. Значит, среди билетов с данными номерами 17 билетов имеют счастливый номер.

    Ответ: б) 17

    • Автор:

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

Войти через Google

или

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

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

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