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