Вопрос, который вызвал трудности
Дано четырехзначное число. Определите, является ли его десятичная запись симметричной. Если число симметричное, то выведите 1, иначе выведите любое другое целое число. Число может иметь меньше четырех знаков, тогда нужно считать, что его десятичная запись дополняется слева незначащими нулями.
Входные данные
Вводится единственное число.
Выходные данные
Выведите ответ на задачу.
Примеры
входные данные
2002
выходные данные
1
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так: Дано четырехзначное число. Определите, является ли его десятичная запись симметричной. Если число симметричное, то выведите 1, иначе выведите любое другое целое число. Число может иметь меньше четырех знаков, тогда нужно считать, что его десятичная запись дополняется слева незначащими нулями.
Входные данные
Вводится единственное число.
Выходные данные
Выведите ответ на задачу.
Примеры
входные данные
2002
выходные данные
1
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
Var a,a1,a2:integer;
begin
readln(a);
a1:=a div 1000;
a2:=a div 100 mod 10;
if a2*10+a1 = a mod 100
then writeln(1) else writeln(0);
end.
Пример:
1221
1