Задача: Дан текст. Определить кол-во слов, начинающихся на "ка". Ниже решение. Как сделать так, чтобы было решение кол-во слов, оканчивающиеся на "ка"???? var a:string; i,k:integer; begin writeln('введи строку:'); readln(a); ...
Задача: Дан текст. Определить кол-во слов, начинающихся на "ка". Ниже решение. Как сделать так, чтобы было решение кол-во слов, оканчивающиеся на "ка"????
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.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы