Дано четырехзначное число. Обусловьте, является ли его десятичная запись симметричной. Если
Дано четырехзначное число. Обусловьте, является ли его десятичная запись симметричной. Если число симметричное, то выведите 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
Статьи
Информатика
Статьи
Последние вопросы
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Облако тегов