Задача: Дан текст. Определить кол-во слов, начинающихся ** "ка". Ниже решение. Как...

Question

Задача: Дан текст. Определить кол-во слов, начинающихся на "ка". Ниже решение. Как сделать так, чтобы было решение кол-во слов, оканчивающиеся на "ка"????
var a:string; i,k:integer;
begin
writeln('введи строку:');
readln(a);
for i:= 1 to length(a)-2 do
if (a[i]=' ') and (a[i+1]='к') and (a[i+2]='а') then k:=k+1;
if (a[1]='к') and (a[2]='а') then k:=k+1;
writeln(k);
end.

Answer 1

Var a:string; i,k:integer; begin writeln('введи строку:'); readln(a); for i:= 1 to length(a)-2 do if (a[i]='к') and (a[i+1]='а') and (a[i+2]=' ') then k:=k+1; if (a[length(a)-1]='к') and (a[length(a)]='а') then k:=k+1; writeln(k); end.

Comments

var a:string; i,k:integer;
begin
writeln('введи строку:');
readln(a);
for i:= 1 to length(a)-2 do
if (a[i]='к') and (a[i+1]='а') and (a[i+2]=' ') then k:=k+1;
if (a[length(a)-1]='к') and (a[length(a)]='а') then k:=k+1;
writeln(k);
end.

---

отформатировал, а то сайт не захотел.

---

блин, и что я додуматься не могла? http://znanija.com/task/15076636 этот ещё можно?:))