Паскаль. Дана строка N символов. Вывести все слова с удвоенными буквами
5-9 класс
|
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.
Другие вопросы из категории
Помогите пожалуйста!!!
1 program P1;
2 var a, b, s: integer;
3 begin
4 a:=5; b:=4;
5 s:=a+b;
6 writeln(‘s=’, s);
7 end.
для Х. Вычислить и напечатать соответствующее значение для Y по правилу: А) Y=X+5, X<6 Б) Y=X-4, X<=100 Y=X/2, X>=6 Y=X*3, X<+100 Спасибо большое,заранее)))
Читайте также
тока дана строка символов, длина которой не превышает 255.
2)дана строка S вместо каждого символа * записать символы 0 Напечатать полученную строку
3)дана строка S получить и напечатать строку Т образуемую путем прочтения строки S начиная с ее конца
4)дана строка S в которой есть одна открывающаяся скобку и одна закрывающаяся скобку Удалить все символы между этими скобками
начинаются или с символа А, или с символа О, или символа В, или с символа К, остальные буквы в слове могут быть любыми. Какое количество информации несет сообщение этого племени, состоящее из 20 символов?
письме только слова длиной 8 символов, причем все слова начинаются или с символа А, или с символа О, или с символа В, или с символа К, остальные буквы в слове могут быть любыми. Какое количество информации несет сообщение этого племени, состоящее из 20 слов?