Question

напишите пожалуйста программу в паскале! дано предложение.вывести на экран слова, начинающиеся и оканчивающиеся на одну и ту же букву.

Answer 1

var a,t:string; b:array[1..100]of string; j,i,k,n:integer; begin writeln('vvedite predlojenie'); readln(a); a:=' '+a; for i:=1 to length(a) do if a[i]=' 'then inc(k) else b[k]:=b[k]+a[i]; writeln('slova s odinakovymi 1 i posledney bukvoy'); for i:=1 to k do begin t:=b[i]; if t[1]=t[length(t)] then write(t,' '); end; writeln; writeln ('slova s 3 e'); for i:=1 to k do begin n:=0; t:=b[i]; for j:=1 to length(t) do if t[j]='e' then inc(n); if n=3 then write (t,' '); end; writeln; writeln('slova s bukvoy o'); for i:=1 to k do begin n:=0; t:=b[i]; for j:=1 to length(t) do if t[j]='o' then n:=1; if n=1 then write (t,' '); end; end.

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая будет выводить слова, начинающиеся и заканчивающиеся на одну и ту же букву:

pascalCopy code
program WordsStartingAndEndingWithSameLetter;

uses
  SysUtils;

procedure PrintWordsStartingAndEndingWithSameLetter(sentence: string);
var
  words: TStringDynArray;
  word: string;
  i: Integer;
begin
  words := SplitString(Trim(sentence), ' ');

  for i := 0 to High(words) do
  begin
    word := LowerCase(words[i]);
    if (Length(word) > 1) and (word[1] = word[Length(word)]) then
      writeln(words[i]);
  end;
end;

var
  sentence: string;
begin
  writeln('Введите предложение:');
  readln(sentence);

  writeln('Слова, начинающиеся и заканчивающиеся на одну и ту же букву:');
  PrintWordsStartingAndEndingWithSameLetter(sentence);

  readln;
end.

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