Составить программу в Pascal которая в предложении найдет количество слов начинающиеся **...

Question

Составить программу в Pascal которая в предложении найдет количество слов начинающиеся на к

Answer 1

Var s:string; k,i:integer;
begin
write('Введите слово: '); readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='a' then k:=k+1;
writeln('В слове ',s,' буква а встречается ',k,' раз');
end. переставь значения и все норм будет

Comments

объясни пожалуйста какие значения переставить

---

как сделать Чтобы считала только первую букву