Помогите пожалуйста срочно ... за ранее спасибо !
Дан текст состоящий из нескольких слов : вывести на экран слова заканчивающиеся на букву я.)
Дан текст состоящий из нескольких слов : вывести на экран слова заканчивающиеся на букву я.)
More Questions From This User See All
Answers & Comments
Verified answer
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.