tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Паскаль. дана строка n символов.
Паскаль. дана строка n символов. вывести все слова с удвоенными буквами
Gryzdik
3 08.06.2019 17:10
1
Ответы
macha2017
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
aidar2002032
29.07.2019 20:10
Всоревновании принимают участие 300 спортсменов. для реализации базы данных необходимо закодировать номер каждого спортсмена. какое наименьшее количество бит необходимо для...
kisa93445
20.07.2019 12:30
Рассказ, набранный на компьютере, содержит 2 страницы, на каждой странице 32 строки, в каждой строке 64 символа. определите информационный объём рассказа водной из кодировок...
маленькийпушистый
20.07.2019 12:30
Что произойдет если нарушить последовательность событий или действий...
Martina17
20.07.2019 12:30
Водном из вариантов кодировки unicode на каждый символ отводится четыре байта. определите информационный объём сообщения из тридцати двух символов в этой кодировке...
funtic20
20.07.2019 12:30
с логическими основами,4 вариант...
СофаСофачка
20.07.2019 12:20
Объявите переменные, необходимые для вычисления для вычисления площади кольца. выберите один ответ: a. s,r1,r2: integer; b. s,1r,2r: integer; c. s,1r,2r: real; d. s,r1,r2:...
vkakochka
20.07.2019 12:20
Объявите переменные, необходимые для вычисления объема параллелепипеда. выберите один ответ: a. v,a,b,c: real; b. v,a,b,c: integer; c. v,a: real; b,c: integer; d. v: real;...
dlimfam
20.07.2019 12:20
Определите значение переменных s и i после выполнения следующих операторов: s: =0; i: =0; while i 5 do begin i: = i + 1; s: = s + 1; end;...
Kurtizan
20.07.2019 12:20
Определите значение переменных s и i после выполнения следующих операторов: s: =0; i: =0; while i 5 do begin i: = i + 1; s: = s + 1; end;...
mariberrr
20.07.2019 12:20
Указывая название, обозначение, диапазон и занимаемую область памяти, опишите известные вам типы данных, используемые в языке паскаль....
Популярные вопросы
Пряма дотикається до кола з центром в точці . З точок і прямої, під кутом...
1
Reading Task 1. Read the story and match.Kite Day: A Bear and Mole StoryRushing...
1
Мәтін бойынша үш талқылау сұрақ...
2
Соотнесите термины и их определения. * A) свободное население Древнего...
2
Реши уровнение а если не правильно то бан а если правильно то лучший ответ...
3
сор для сестрёнки сделать 4 класс...
3
Определи ИСХОДНЫЕ ДАННЫЕ для задачи: Для трех вещественных чисел А, B,...
1
Часть речи слова со всего...
1
1. Визначте, які природні ресурсы принадлежат к невичерпних: а) ліси;...
2
Дано точки А(3;0; —1), B(3;1;-1). С(5;0;-3) i D(6; 3;-3). Знайдіть кут...
3
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.