Дано трехзначное число. Проверить, является ли число палиндромом, т.е. числом, которое читается одинаково слева направо и справа налево (число единиц
5-9 класс
|
может превосходить число сотен). Если не является, то вывести ближайшее следующее число-палиндром.
я на паре тестах попробывал вроде находит правильно, если найдешь варианты при которых будет выдавать неправильно то напиши в комментариях
program uslovie;
var m,n,a,c: integer;
begin
readln(m);
if m div 100=m mod 10 then
writeln('Это число-палиндром')
else
begin
a:=m div 100;
c:=m mod 10;
n:=m+(a-c);
if a>c then
writeln(n)
else
n:=(m+10)-(c-a);
writeln(n)
end;
end.
Другие вопросы из категории
Карты достаются одновременно
Карты достаются по очереди
Операцией возведения в степень пользоваться нельзя!
Читайте также
1) есть ли среди цифр заданного трехзначного числа одинаковые;
Пример входных данных
123 нет
121 да
222 да
2) является ли число '' перевертышем" , т.е. числом , десятичная запись которого читается одинаково слева направо и справа налево.
Пример входных данных
122 нет
121 перевертыш
222 перевертыш
Пожалуйста с примером!!!
Заранее большое спасибо
десятичная запись которого читается одинаково слева направо и справа налево Пример входных данных: 122, 121, 222 Пример выходных данных: нет, перевертыш, перевертыш
а) есть ли среди цифр заданного целого трёхзначного числа одинаковые;
пример входных данных: 123; 121; 222
пример выходных данных: нет; да; да
б) является ли число "перевёртышем", т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево.
2.Составьте программу вычисления количества трёхзначных чисел палиндромов ( чисел, которые читаются одинаково слева направо и справа налево).
3.Найти двухзначные числа, которые делятся на сумму своих цифр
4.Составьте программу вывода количества трёхзначных чисел, у которых цифры упорядочены строго по убыванию.
РЕБЯТА СРОЧНО!!!!!!!!!!!
Составьте программу вычисления количества трехзначных чисел-палиндромов(чисел, которые читаются одинаково слева направо и справа налево).