71

Составте программу вычесления количества трехзначных чисел-палиндомов (чисел,…

28 августа 2022

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

категория: информатика

47

program xxx; var i, k, c, e: integerbegin k: =0; for i: =100 to 999 do begin c: =i div 100; e: =i mod 10; if c=e then k: =k+1 end; writeln ('кол-во палиндромов=', k); readlnend.

Знаете ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...