Ответы на вопрос:
Var s: string; i: longint; t: boolean; begin read(s); t: =false; for i: =1 to length(s)-1 do if s[i]=s[i+1] then t: =true; if t then writeln('yes') else writeln('no'); end.
Популярно: Информатика
-
Написать инструкцию вывода значений переменных абс значение каждой переменной...
ЛенаКошка12.06.2020 16:57 -
Файл размером 100 кбайт передается через некоторое соединение со скоростью...
kotovad44412.01.2023 08:58 -
Кто является исполнителем алгоритма водитель или автомобиль?...
Veronica12310412.07.2020 22:03 -
Запишите значение переменной s, полученное в результате работы следующей программы:...
Znoke9913.06.2023 22:19 -
Пределите, что будет напечатано в результате работы следующей программы: var...
dcherniesheva30.06.2021 21:35 -
Для хранения растрового изображения размером 1024х256пикселей отвели 768 кбайт....
gulnar196426.05.2023 07:11 -
Требовалось написать программу, которая меняет местами значения двух переменных...
SharkiLoge16.04.2020 02:40 -
Відкрийте середовище розробки та виконання проєктів Python. 2. Складіть проект...
Apelsin240324.11.2022 13:33 -
Записать первые 15 чисел шестеричной системы счисления...
karina201365216.04.2021 23:42 -
Дан двухмерный массив целых чисел. в каждой его строке найти: а) максимальный...
SonyaYT03.01.2021 03:40