Ответы на вопрос:
Program n1; var a,temp: integer; b: boolean; begin readln(a); temp: =-a; b: =false; while a< > 0 do begin if temp=(a mod 10) then begin b: =true; break; end; temp: = a mod 10; a: =a div 10; end; if b then write('верно') else write('неверно'); end.
Популярно: Информатика
-
marmakmp07.03.2021 14:16
-
Kaefwf24.08.2022 23:24
-
Гелик213216.05.2022 07:57
-
Няшка900006.10.2022 13:43
-
Nagachika14.02.2023 01:29
-
Игорь500224.06.2020 17:50
-
Andreytsoy102.12.2022 16:31
-
Sendula30.05.2022 10:19
-
basarabbozya18.01.2021 23:13
-
ak06717.05.2023 01:39