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

Ответы 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;

    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

  • Добавить свой ответ

Войти через Google

или

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

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

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