Задача: Дан текст. Определить кол-во слов, начинающихся на "ка". Ниже решение. Как сделать так, чтобы было решение кол-во слов, оканчивающиеся на "ка"???? 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.
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.
More Questions From This User See All