< >

Составьте программу вычисления количества трёхзначных чисел-палиндромов.

Ответы

Ответ дал: archery
0

var i,s:integer;

Begin

  for i := 100 to 999 do

    if (i mod 10 = i div 100) then s=s+1;

 

  writeln(s);

End

 

Похожие вопросы
Русский язык
2 года назад
Рыбак. Рыбачьей удалью блесну. И в речку возле леса. Поймаю щуку на блесну. Эх, выдержала б леса,Сравни пары слов выделенных одинаково.Докажи,чтов каждой паре разные слова,поставив каждое из них в
Другие предметы
2 года назад
назви небесних тіл please
Алгебра
7 лет назад
помогите решить систему
Алгебра
7 лет назад
помогитпомогите с заданием.
Химия
10 лет назад
сколько молей в 450 г воды
Математика
10 лет назад
Раскрыть скобки и упростить выражение. . -2(а-(4+2а(а-1)))-3а(-а-(4+а(-1-2а)))-6а(-А во второй степени+а+9)
Физика
10 лет назад
В цистерне, наполненной нефтью, на глубине 10 см поставлен кран. Определите давление на кран.
Геометрия
10 лет назад
Длины сторон прямоугольника равны 8 и 6 см. Через точку О пересечения его диагоналей проведена прямая ОК, перпендикулярная его плоскости. найти расстояние от т. Кдо вершины прямоугольника. если ОК=12