составьте программу вычисления количества трехзначные числа - палиндромов (чисел. которые читаются одинаково слева направо и справа на лево ).(паскаль)
5-9 класс
|
program Palindrom3;
var
i, n, k: integer;
begin
n := 0;
for i := 100 to 999 do
if (i div 100) = (i mod 10) then n := n + 1;
Writeln('На промежутке [100;999] найдено числе палиндромов- ', n)
end.
Результат решения:
На промежутке [100;999] найдено числе палиндромов- 90
Другие вопросы из категории
составьте алгоритм для определенного количества цифр в записи натурального числа
a)(x*у<>0)and(у>x),при х=2,у=1;
б)(x*у<>0)or(у>x),при х=2,у=1;
в) t and (p mod 3=0), при t=true,p=42;
г) f or (not(b)), при f=false, b=true;
Читайте также
2.Составьте программу вычисления количества трёхзначных чисел палиндромов ( чисел, которые читаются одинаково слева направо и справа налево).
3.Найти двухзначные числа, которые делятся на сумму своих цифр
4.Составьте программу вывода количества трёхзначных чисел, у которых цифры упорядочены строго по убыванию.
РЕБЯТА СРОЧНО!!!!!!!!!!!
Составьте программу вычисления количества трехзначных чисел-палиндромов(чисел, которые читаются одинаково слева направо и справа налево).
1) есть ли среди цифр заданного трехзначного числа одинаковые;
Пример входных данных
123 нет
121 да
222 да
2) является ли число '' перевертышем" , т.е. числом , десятичная запись которого читается одинаково слева направо и справа налево.
Пример входных данных
122 нет
121 перевертыш
222 перевертыш
Пожалуйста с примером!!!
Заранее большое спасибо
а) есть ли среди цифр заданного целого трёхзначного числа одинаковые;
пример входных данных: 123; 121; 222
пример выходных данных: нет; да; да
б) является ли число "перевёртышем", т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево.
может превосходить число сотен). Если не является, то вывести ближайшее следующее число-палиндром.