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


textual

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

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



Похожие ответы
  1. дано строку слов из латинских букв. разработать программу, которая будет удалять все слова на букву в с данного текста.

  1. Пусть задан текст, заканчивающийся точкой. Текст состоит из слов, разделенных пробелами. Слово представляет собой последовательность латинских букв. Напечатайте те слова, в которые не входит ни одна из букв первого слова

  1. Прошу помощи с заданием, заранее спасибо! Смог разобраться с процедурой нахождения старшего мужчины в группе, но тут встрял. Используя следующий фрагмент программы, опишите перечисленные ниже процедуры:

  1. Написать программу, которая записывает в файл все слова, начинающиеся с задаваемой с клавиатуры буквы из исходного текстового файла. Словом считать набор символов, не содержащий пробелов, знаком препинания и ограниченный пробелами, знаками препинания или началом/концом строки. Если исходный файл не содержит подходящих слов, то оставить результирующий файл пустым.

  1. В текстовом файле удалить все слова, начинающиеся с гласной буквы

  1. Помогите пожалуйста с задачей. Всю голову сломал себе. Дан текстовый файл f, каждая строка которого состоит из слов, разделённых одним и более пробелами. Найти все слова, в которых количество цифр максимально. Записать их в новый файл g.

  1. Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 строчных латинских букв; между соседними словами – пробел, за последним словом – точка. Вывести все слова последовательности, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: удалить из слова последнюю букву.

  1. Дана строка. Указать те слова, которые содержат хотя бы одну букву К. (паскаль) помогите пожалуйста решить

  1. Сама задача: Найти в тексте все слова, которые содержат хотя бы один фрагмент заданного вида. Подсчитать их количество и выделить в исходном тексте другим цветом как слова, так содержащиеся в них фрагменты.

  1. Дана строка, состоящая из слов. Удалить из строки слова, содержащие повторяющиеся символы.