Дан массив из слов Z(m). Найти все слова, в которых есть две подряд идущие одинаковые буквы - Turbo Pascal

Формулировка задачи:

Уважаемые программисты Я уверена,что вы мне поможете)Пожалуйста! Задание: Дан массив из слов Z(m). Найти все слова, в которых есть две подряд идущие одинаковые буквы.

Код к задаче: «Дан массив из слов Z(m). Найти все слова, в которых есть две подряд идущие одинаковые буквы - Turbo Pascal»

textual
uses crt;
const nmax=20;
var z:array[1..nmax] of string[20];
    n,i,j,k:integer;
    f:boolean;
begin
clrscr;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите ',n,' слов, в том числе со сдвоенными буквами');
for i:=1 to n do
 begin
  write('слово ',i,': ');
  readln(z[i]);
 end;
writeln;
k:=0;
writeln('Слова со сдвоенными буквами');
for i:=1 to n do
 begin
  f:=false;
  j:=1;
  while(j<length(z[i]))and not f do
  if z[i][j]=z[i][j+1] then f:=true
  else j:=j+1;
  if f then
   begin
    k:=1;
    writeln(z[i]);
   end;
 end;
if k=0 then write('Нет слов со сдвоенными буквами');
readln
end.

12   голосов, оценка 3.750 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы