Дано четырехзначное число. Определите, является ли его десятичная запись симметричной. Если число симметричное, то выведите 1, иначе выведите любое другое целое число. Число может иметь меньше четырех знаков, тогда нужно считать, что его десятичная запись дополняется слева незначащими нулями. При решении этой задачи нельзя пользоваться условной инструкцией if и циклами Входные данные Вводится четырехзначное число. Выходные данные Выведите ответ на задачу. Примеры входные данные 2002 выходные данные 1 входные данные 2008 выходные данные 37
Надо написать в ПАСКАЛЕ!
Кому надо-то? В задании про это ни слова.
Зам побьёт :D
Var s:string; begin readln(s); writeln(1+2*StrToInt(s[1])+StrToInt(s[2])-StrToInt(s[3])-2*StrToInt(s[4])); end.
2008 у тебя работает. В задаче не сказано, что должно быть именно 37 выведено, а прямо написано - любое число кроме единицы. Это просто пример.
А мне надо 2008 )
Теперь сработает 2040 =)
последнее подправил
И, кстати, ты отнимаешь два правых символа. Это даст 1 и для 2020, например. Это ошибка.
Мой вариант с числом корректнее.
И впрямь, ты ж нулями не дополняешь, а в условии это обговорено.
Но написано частичное решение
Через него зам проверяет
2956. Симметричное число2016-10-04 18:45:58PascalABC 1.8.0.496Частичное решение1414
ОТДЕЛ Задание+; ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём; ПЕР ч, ч1, ч2: ЦЕЛ; УКАЗ ч := Приём.Число(); ч1 := ч ДЕЛИТЬ 100; ч2 := ч ОСТАТОК 100; ч2 := ч2 ДЕЛИТЬ 10 + ч2 ОСТАТОК 10 * 10; Вывод.ЧЦел("%d", ч1 - ч2 + 1, 0, 0, 0) КОН Задание.
Да, C-подобные языки куда приятнее.
С нормально выглядит
мне тоже так кажется
По мне, так это Паскаль имеет такой вид, что удивляюсь, как его до сих пор кто-то заставляет учить.
А что с видом не так?
да просто все такого вида, что кто-то просто решил угарнуть...
Конечно, а что?
ты серьезно чтоли?
Глагол, русский вариант Оберона.
это на каком языке вообще написано? :D