помогите! в паскале! подсчитать, сколько слов в тексте заканчиваются на букву "а"

Question

Информатика

Паша

27 мая, 09:54

помогите! в паскале! подсчитать, сколько слов в тексте заканчиваются на букву "а"

+3

Ответы (1)

Знаете ответ на вопрос?

Лилюха · Answer 1

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.