Вывести слова, оканчивающиеся буквой, которая указывается пользователем - Pascal ABC

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

Дана строка. Вывести на экран все слова, оканчивающиеся буквой, которая указывается пользователем. Спасибо за внимание!


textual

Код к задаче: «Вывести слова, оканчивающиеся буквой, которая указывается пользователем - Pascal ABC»

Var s, word : string;
    c : char;
    i : integer;
begin
Readln(s); //строка
Readln(c); //буква
i:=1;
While (i <=length(s)) do
      begin
      While (s[i]<>' ') and (i <=length(s)) do
            begin
            word:=word+s[i];
            i:=i+1;
            end;
      If (word[length(word)]=c) then Writeln(word);
      word:='';
      i:=i+1;
      end;
Readln;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 4.167 из 5

Источник
Похожие ответы