:дан текст. определить кол-во слов, начинающихся - вопрос №4589466 от alsav241357 21.08.2022 16:56

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.

alsav241357 · Answer

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....