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

Som777nik Som777nik    2   07.09.2019 08:00    58

Ответы
coxa coxa  06.10.2020 22:41
Var a,a1,a2:integer;
begin
readln(a);
a1:=a div 1000;
a2:=a div 100 mod 10;
if a2*10+a1 = a mod 100
 then writeln(1) else writeln(0);
end.

Пример:
1221
1
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика