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

Question

Информатика

Сема

25 октября, 19:41

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

+5

Ответы (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.