Вопрос, который вызвал трудности
Дано четырехзначное число. Определите, является ли его десятичная запись симметричной. Если число симметричное, то выведите 1, иначе выведите любое другое
целое число. Число может иметь меньше четырех знаков, тогда нужно считать, что его десятичная запись дополняется слева незначащими нулями.
При решении этой задачи нельзя пользоваться условной инструкцией if и циклами
Входные данные
Вводится четырехзначное число.
Выходные данные
Выведите ответ на задачу.
Примеры
входные данные
2002
выходные данные
1
входные данные
2008
выходные данные
37
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так: Дано четырехзначное число. Определите, является ли его десятичная запись симметричной. Если число симметричное, то выведите 1, иначе выведите любое другое
целое число. Число может иметь меньше четырех знаков, тогда нужно считать, что его десятичная запись дополняется слева незначащими нулями.
При решении этой задачи нельзя пользоваться условной инструкцией if и циклами
Входные данные
Вводится четырехзначное число.
Выходные данные
Выведите ответ на задачу.
Примеры
входные данные
2002
выходные данные
1
входные данные
2008
выходные данные
37
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
Var s:string;
begin
readln(s);
writeln(1+2*StrToInt(s[1])+StrToInt(s[2])-StrToInt(s[3])-2*StrToInt(s[4]));
end.