Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
dasika1
23.09.2020 12:37 •
Информатика
Паскаль. дана строка n символов. вывести все слова с удвоенными буквами
Показать ответ
Ответ:
Bibika2005
07.07.2020 19:26
Var
n,i:integer;
s,t:string;
f:boolean;
begin
readln(s);
n:=length(s);
f:=false;
for i:=2 to n do
begin
t:=t+s[i];
if s[i]=s[i-1] then f:=true;
if (s[i]=' ') or (i=n) then
begin
if f then writeln(t);
t:='';
f:=false;
end
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Dashaass554
17.11.2020 06:45
А. выберите корректные диапозоны для электронных таблиц.1. =A5:Q102. C4:C93. 5E:T84. A3:E65. 9U;8Б.Отметьте формулы, которые записаны верно с точки зрения синтаксиса элнктронных...
OlgaBliznyak
17.11.2020 06:45
В ячейки диапазонов C1:F6 и B2:B6 электронной таблицы записаны числа, как показано на рисунке. В ячейке B1 записали формулу =C$3 +$D1 и скопировали её в одну из ячеек столбца...
vitalik2312031
22.02.2022 20:07
2. Скольких различных цветов могут быть пиксели растрового изображения, имеющего размер 128 x 256 пикселей и занимающего на диске 32Кбайта...
НиколайКот
29.12.2021 07:20
Тіл алфавиті деген не?...
МисАлександра
08.04.2023 08:19
4. в некотором каталоге хранится файл .txt. в этом каталоге создали подкаталог с именем 10_class и переместили в него файл .txt. после чего полное имя файла стало d: .txt. каково...
Z07701
08.04.2023 08:19
№1: сколькими четыре (пять) человек стать в ряд? (обосновать письменно) №2: файл размером 9 кбайт передается через некоторое соединение со скоростью 1536 бит в секунду. определите...
irina72221976p092ek
06.08.2021 05:12
Из выпадающих списков выберите значения для переменных v, n, численно равные, выводимым на печать этой программой:var v, n :integer; begin v := 1; n := 24; v := n - v * 4; n :=...
nata14batm1979
06.03.2023 00:21
Это примечание к тексту, которое содержит пояснения или дополнительную информацию. В пояснения могут быть включены сведения об авторе, объяснения заимствованных из других языков...
vano1399
25.01.2020 08:30
Переведите целое число из десятичной системы счисления в двоичную:298¹⁰...
Mallony
15.06.2020 07:37
Из 20 кг свежего картофеля получается 6 кг сушёного.сколько свежего картофеля надо переработать,чтобы получить сушёного картофеля 60 кг? 3 ц? 3 т?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n,i:integer;
s,t:string;
f:boolean;
begin
readln(s);
n:=length(s);
f:=false;
for i:=2 to n do
begin
t:=t+s[i];
if s[i]=s[i-1] then f:=true;
if (s[i]=' ') or (i=n) then
begin
if f then writeln(t);
t:='';
f:=false;
end
end;
end.