Ответы на вопрос:
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
Популярно: Информатика
-
НаsтяПоможет77727.12.2021 16:37
-
Chelyabin28.02.2020 09:31
-
MD20040513.10.2020 20:22
-
mtoropchin08.04.2021 22:32
-
okolota0524.08.2020 23:15
-
avladimirovna32413.06.2020 15:23
-
anuynilonoca05.04.2022 19:58
-
знания43631.12.2020 22:03
-
diasashat1112.08.2021 12:32
-
viktpriabihanov07.02.2020 04:37