Предмет: Информатика, автор: Alena100499

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

Ответы

Автор ответа: GDZsearcher
0
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.
Автор ответа: GDZsearcher
0
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.
Автор ответа: GDZsearcher
0
отформатировал, а то сайт не захотел.
Автор ответа: Alena100499
0
блин, и что я додуматься не могла? http://znanija.com/task/15076636 этот ещё можно?:))
Похожие вопросы
Предмет: Қазақ тiлi, автор: abenovaajkrkem
осталось 50 минут помогите помагите пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж пж​​