Pascal Задачка со словами

[Natsu]

Вот такое задание помогите пожалуйсто все понял но етот момент както немогу осмыслить:

подсчитать кол-слов начинаюшихся на букву а

[LeBron]

Самый простой вариант - это искать буквы а после пробелов (тоесть буквы а, которые являются началом слова). Чтоб было удобно искать "после пробелов", прибавим пробел вначале (так как первое слово может начинатся на а, но это а не после пробела).

st:=' '+st;
for i:=2 to length(st) do if ((st[i]='a') or (st[i]='A')) and (st[i-1]=' ') then inc(ans);

Вот и все решение.

[Natsu]

Спасибо большое тебе ша + кину слух не бог бы попробывать полностью прогу описать а то чето туплю с выводом и тд

[Natsu]

просто Паскаль на компе тупит ужасно он не помечет функции не сохраняет программу не компелирует ваше ппц а надо без ошибок сделать((

[Natsu]

эххх Лебрончик Лебрончик((

[Natsu]

блин проверили у друга он жалуется на ету строку
if ((st[i]='a') or (st[i]='A')) and (st[i-1]=' ') then inc(ans);

[Natsu]

вот я сделал так незнаю прально нет прога не пашет чето ппц)

Uses wincrt;
var st:string;
i,k:integer;
Begin
k:=k+1;
st:=' '+st;
for i:=2 to length(st) do
if ((st[i]='a') or (st[i]='A')) and (st[i-1]=' ') then k:=k+1;
writeln('кол-во слов на букву а' ,k);
end.

[Serge_Bliznykov]

begin
k:=k+1;

в начале программы K надо просто обнулить и добавить ввод строки:

begin
  k := 0;
  WriteLn('Vvedite stroku: ');
  Readln(s);
  s := ' '+s;

[Natsu]

Вот сделал вот так

var st:string;
i,k:integer;
Begin
k := 0;
WriteLn('Введите строку: ');
Readln(st);
k:=k+1;
st:=' '+st;
for i:=2 to length(st) do
if ((st[i]='a') or (st[i]='A')) and (st[i-1]=' ') then k:=k+1;
writeln('кол-во слов на букву а= ' ,k);
end.

и короч когда выполняю программу сколько бы слов на букву а небыло все равно пишет 1

[Natsu]

все сделал))