Найти все слова, начинающиеся и заканчивающиеся одной и той же буквой - Turbo Pascal

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

Дан массив из слов A(k). Найти все слова, начинающиеся  и заканчивающиеся одной и той же буквой.

Код к задаче: «Найти все слова, начинающиеся и заканчивающиеся одной и той же буквой - Turbo Pascal»

textual
Const nmax=30;
Var A:array[1..nmax] of string;
    i,k:byte;
Begin
    write('K<=',nmax,': ');readln(k);
    For i:=1 to k do
    Begin
      write(i,' слово = ');
      readln(A[i]);
    End;
    writeln('Слова начинающиеся и заканчивающиеся одной и той же буквой');
    For i:=1 to k do
     if A[i]<>'' then
      if A[i][1]=A[i][Length(A[i])] then writeln(A[i]);
    readln;
End.

7   голосов, оценка 4.571 из 5


СОХРАНИТЬ ССЫЛКУ