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

@Loggos · Регистрация: 05.12.2015

Author24 — интернет-сервис помощи студентам

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

@Mazilo · 12.12.2015, 20:13

Loggos,

Pascal

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.

@иван я · 12.12.2015, 20:23

Loggos, ?

@Loggos · 12.12.2015, 21:01 **[ТС]**

Спасибо большое, всё работает!

@Loggos 0 / 0 / 0 Регистрация: 05.12.2015 Сообщений: 87
		1
	Вывести слова, оканчивающиеся буквой, которая указывается пользователем 12.12.2015, 19:12. Показов 3941. Ответов 3 Метки нет (Все метки) Дана строка. Вывести на экран все слова, оканчивающиеся буквой, которая указывается пользователем. Спасибо за внимание! 0

@иван я 17 / 17 / 16 Регистрация: 15.12.2012 Сообщений: 536
	12.12.2015, 20:23	3
	Loggos, ? 0

@Loggos 0 / 0 / 0 Регистрация: 05.12.2015 Сообщений: 87
	12.12.2015, 21:01 [ТС]	4
	Спасибо большое, всё работает! 0

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

Решение