FreePascal.ru

честно говоря, я даже и не знаю с чего и начать...

ща, попытаюсь че-нить накалякать

у меня вот че получилось:

program glasnie;
uses crt;
var a,b:string;
i,j,k,p,x,y:integer;
begin
clrscr;
readln(a);
x:=length(a);
for i:=1 to x do
begin
if a[i]='a' then p:=p+1;
if ((a[i]=' ')or (i=x)) and (p<>0) then
begin
k:=k+1;
p:=0;
end;
end;
writeln(k);
readkey;
end.

с тебя пузырь ...

помогите пожалуйста, напишите полный правильный текст программы, я попробовал, как говорили, но никак, она считает не слова, а сколько всего букв "а" встречается в напечатанном тексте...

Добавлено спустя 29 минут:
хоть кто-нибудь, помогите наконец...

Срочно нужно сделать лабу по Паскалю, вот задание:
Слова в строке отделены пробелами. Подсчитать количество слов, в которых буква 'а' встречается хотя бы 1 раз
помогите пожалуйста, я попробовал, но получилось не то, что нужно:
program glasnie;
uses crt;
var a,b:string;
i,j,n:integer;
begin
clrscr ...