Помогите пожалуйста срочно ... за ранее спасибо ! Дан текст состоящий из нескольких слов...

Question

Помогите пожалуйста срочно ... за ранее спасибо !
Дан текст состоящий из нескольких слов : вывести на экран слова заканчивающиеся на букву я.)

Comments

Нужна программа? На каком языке?

---

паскаль

---

чем отделяются слова друг от друга?

---

хз

---

Я не хочу знать, что такое хз. Отвечайте нормально

---

пробелами

Answer 1

Var s,s1:string; p:integer;
begin
writeln('Введите строку:');
readln(s);
s1:=s+' ';
while s1<>'' do
  begin
 p:=pos(' ',s1);
 if (p>1)and(s1[p-1]='я') then writeln(copy(s1,1,p-1));
 delete(s1,1,p);
 end;
end.