Предмет: Информатика, автор: Рудик010

Дано четырехзначное число. Определите, является ли его десятичная запись симметричной. Если число симметричное, то выведите 1, иначе выведите любое другое
целое число. Число может иметь меньше четырех знаков, тогда нужно считать, что его десятичная запись дополняется слева незначащими нулями.

При решении этой задачи нельзя пользоваться условной инструкцией if и циклами

Входные данные
Вводится четырехзначное число.

Выходные данные
Выведите ответ на задачу.

Примеры
входные данные
2002
выходные данные
1
входные данные
2008
выходные данные
37

Ответы

Автор ответа: Аноним
0
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...ОтделыОбмен", Приём;

ПЕР
  ч, ч1, ч2: ЦЕЛ;

УКАЗ
  ч := Приём.Число();
  ч1 := ч ДЕЛИТЬ 100;
  ч2 := ч ОСТАТОК 100;
  ч2 := ч2 ДЕЛИТЬ 10 + ч2 ОСТАТОК 10 * 10;
  Вывод.ЧЦел("%d", ч1 - ч2 + 1, 0, 0, 0)

КОН Задание.
Автор ответа: Аноним
0
А что с видом не так?
Автор ответа: Аноним
0
По мне, так это Паскаль имеет такой вид, что удивляюсь, как его до сих пор кто-то заставляет учить.
Автор ответа: HiroX
0
мне тоже так кажется
Автор ответа: HiroX
0
С нормально выглядит
Автор ответа: Аноним
0
Да, C-подобные языки куда приятнее.
Автор ответа: HiroX
0
var s:string;
begin
readln(s);
writeln(1+2*StrToInt(s[1])+StrToInt(s[2])-StrToInt(s[3])-2*StrToInt(s[4]));
end.
Автор ответа: HiroX
0
последнее подправил
Автор ответа: Аноним
0
Теперь сработает 2040 =)
Автор ответа: Рудик010
0
А мне надо 2008 )
Автор ответа: Аноним
0
2008 у тебя работает. В задаче не сказано, что должно быть именно 37 выведено, а прямо написано - любое число кроме единицы. Это просто пример.
Автор ответа: Рудик010
0
2956. Симметричное число 2016-10-04 18:45:58 PascalABC 1.8.0.496 Частичное решение 14 14
Похожие вопросы
Предмет: Қазақ тiлi, автор: erko7082009
Предмет: Литература, автор: Kleox