Дана строка. Подсчитать количество слов,заканчивающихся буквой и. Мышки ели шишки

Question

Дана строка. Подсчитать количество слов,заканчивающихся буквой и.
Мышки ели шишки

Comments

Составить программу на Pascal

Answer 1

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

Пример:
Введите строку:
Мышки любят шишки
k = 2

Comments

вы можете помочь мне с ещё одной задачей?

Answer 2

3(три) слова оканчиваются на букву "и".

Comments

нужно составить праграмму на Pascal

---

ааа....так нужно было написать в задании