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

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.

Question

Информатика

Лариса

17 ноября, 10:48

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

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.

+4

Ответы (1)

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

Веньямин · 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.