Помогите !! в паскале!! подсчитать, сколько слов в тексте заканчиваются на букву "а"
Помогите !! в паскале!! подсчитать, сколько слов в тексте заканчиваются на букву "а"
Гость
Ответ(ы) на вопрос:
Гостьvar
s:string;
i,n,w:integer;
begin
writeln('Введите текст');
readln(s);
s:=s+' ';
n:=length(s);
for i:=1 to n do
if (s[i]='а') and (s[i+1]=' ') then
inc(w);
writeln('Кол-во = ',w);
end.
Не нашли ответ?
Похожие вопросы