Ответы на вопрос:
Var s,a,b,c: integer; begin read(s); a: = s div 100; b: = s div 10 mod 10; c: = s mod 10; if (a=b) and (b=c) then writeln('содержит') else writeln('не содержит'); end. нажимаем "лучший ответ"
Популярно: Информатика
-
goldlena197912.01.2020 18:25
-
sagal6323.11.2021 12:30
-
torivova200427.01.2023 23:07
-
neoguy22801.02.2021 00:48
-
Yoshimura26.01.2021 03:02
-
Sofia240611.02.2020 16:58
-
Rika246821.06.2022 15:17
-
Fadasa15.07.2021 15:34
-
Siberia1903.02.2023 00:41
-
abekeev23.12.2020 02:33