Ответы на вопрос:
Program x; var s: string; begin readln(s); if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then writeln('есть') else writeln('нет') end.
Популярно: Информатика
-
Rogonova21.02.2021 14:19
-
max4bob28.02.2021 10:14
-
nikitakirillov327.10.2022 01:41
-
RFHBYF45613.12.2020 07:19
-
Vinner050826.12.2022 15:27
-
Богдан228166718.02.2021 16:21
-
Mognolia13.07.2022 07:30
-
polinaserdiuk428.12.2022 10:03
-
shatab22811.03.2022 14:01
-
AlinaAlina267223.05.2023 19:09