Дано четырехзначное число. Определите, является ли его десятичная запись симметричной. Если число симметричное, то выведите 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)
КОН Задание.
ИСПОЛЬЗУЕТ Вывод ИЗ "...ОтделыОбмен", Приём;
ПЕР
ч, ч1, ч2: ЦЕЛ;
УКАЗ
ч := Приём.Число();
ч1 := ч ДЕЛИТЬ 100;
ч2 := ч ОСТАТОК 100;
ч2 := ч2 ДЕЛИТЬ 10 + ч2 ОСТАТОК 10 * 10;
Вывод.ЧЦел("%d", ч1 - ч2 + 1, 0, 0, 0)
КОН Задание.
Ответ дал:
0
А что с видом не так?
Ответ дал:
0
По мне, так это Паскаль имеет такой вид, что удивляюсь, как его до сих пор кто-то заставляет учить.
Ответ дал:
0
мне тоже так кажется
Ответ дал:
0
С нормально выглядит
Ответ дал:
0
Да, C-подобные языки куда приятнее.
Ответ дал:
0
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.
Ответ дал:
0
последнее подправил
Ответ дал:
0
Теперь сработает 2040 =)
Ответ дал:
0
А мне надо 2008 )
Ответ дал:
0
2008 у тебя работает. В задаче не сказано, что должно быть именно 37 выведено, а прямо написано - любое число кроме единицы. Это просто пример.
Ответ дал:
0
2956. Симметричное число 2016-10-04 18:45:58 PascalABC 1.8.0.496 Частичное решение 14 14
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад