Дано четырехзначное число. Обусловьте, является ли его десятичная запись симметричной. Если
Дано четырехзначное число. Обусловьте, является ли его десятичная запись симметричной. Если число симметричное, то выведите 1, иначе выведите хоть какое иное
целое число. Число может иметь меньше 4 знаков, тогда необходимо считать, что его десятичная запись дополняется слева незначащими нулями.
При решении этой задачки нельзя пользоваться условной аннотацией if и циклами
Входные данные
Вводится четырехзначное число.
Выходные данные
Выведите ответ на задачу.
Примеры
входные данные
2002
выходные данные
1
входные данные
2008
выходные данные
37
Степан Алтамиров
Надо написать в ПАСКАЛЕ!
Алёна
Кому надо-то? В задании про это ни слова.
Марина Вострых
Зам побьёт :D
2 ответа
Антонина Гожинская
Var s:string;
begin
readln(s);
writeln(1+2*StrToInt(s[1])+StrToInt(s[2])-StrToInt(s[3])-2*StrToInt(s[4]));
end.
begin
readln(s);
writeln(1+2*StrToInt(s[1])+StrToInt(s[2])-StrToInt(s[3])-2*StrToInt(s[4]));
end.
Влад Коляденков
Через него зам инспектирует
Тоня Гайдукевич
Но написано частичное решение
Timur Zhigalovskij
И впрямь, ты ж нулями не дополняешь, а в условии это обговорено.
Дима Потаракин
Мой вариант с числом корректнее.
Олег Ундра
И, кстати, ты отнимаешь два правых знака. Это даст 1 и для 2020, например. Это ошибка.
Полина
последнее подправил
Кашев
Кирилл
Теперь сработает 2040 =)
Андрей Тукмаков
А мне надобно 2008 )
Ярослава Порай-Кошня
2008 у тебя работает. В задачке не сказано, что обязано быть конкретно 37 выведено, а прямо написано - хоть какое число кроме единицы. Это просто пример.
Лариса Дымкина
2956. Симметричное число 2016-10-04 18:45:58 PascalABC 1.8.0.496 Частичное решение 14 14
Илья Приволов
ОТДЕЛ Задание+;
Употребляет Вывод ИЗ "...\Отделы\Размен\", Приём;
ПЕР
ч, ч1, ч2: ЦЕЛ;
УКАЗ
ч := Приём.Число();
ч1 := ч Разделять 100;
ч2 := ч ОСТАТОК 100;
ч2 := ч2 Разделять 10 + ч2 ОСТАТОК 10 * 10;
Вывод.ЧЦел("%d", ч1 - ч2 + 1, 0, 0, 0)
КОН Задание.
Употребляет Вывод ИЗ "...\Отделы\Размен\", Приём;
ПЕР
ч, ч1, ч2: ЦЕЛ;
УКАЗ
ч := Приём.Число();
ч1 := ч Разделять 100;
ч2 := ч ОСТАТОК 100;
ч2 := ч2 Разделять 10 + ч2 ОСТАТОК 10 * 10;
Вывод.ЧЦел("%d", ч1 - ч2 + 1, 0, 0, 0)
КОН Задание.
Диман
это на каком языке вообще написано? :D
Истееков
Толя
Глагол, русский вариант Оберона.
Семён Рослеков
ты серьезно чтоли?
Диана Мигдал
Конечно, а что?
Лидия Мурджикнели
да просто все такого вида, что кто-то просто решил угарнуть...
Антон
А что с видом не так?
Леонид
По мне, так это Паскаль имеет таковой вид, что дивлюсь, как его до сих пор кто-то заставляет учить.
Дмитрий Боярских
мне тоже так кажется
Инна Сакау
С нормально смотрится
Arina Obrjadova
Да, C-сходственные языки куда приятнее.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов