Дана строка. Найти количество слов, начинающихся с буквы А

[kirik221]

Дана строка. Найти количество слов, начинающихся с буквы А паскаль абс.нет
помогите пожалуйста, дорогие друзья1

[Arigato]

Сообщение от kirik221

помогите пожалуйста, дорогие друзья

Цикл по символам строки, если символ равен А, а предыдущий пробел, то увеличить счетчик.

[kirik221]

Arigato, помогите написать код пожалуйста, не разбираюсь в этом

[Arigato]

Сообщение от kirik221

помогите написать код пожалуйста

Написать за вас и помочь вещи разные. Готовый код раздают в разделе Фриланс.

[NetSpace]

ищи для начала пробелы (код 32), а потом ищи букву А. код буквы 65 или 97, если латинские буквы большая или маленькая. или код 192 (А) и 224(а), если кириллица (читай: русские буквы)

[CMY_3]

 
c1 := #32;
while c<>'.' do begin
read(c);
if (c1 = #32) and ((c = 'A') or (c = 'a')) then inc(k);
c1 := c;
end;

[digitalis]

Молодец, Сусанин! После такой "подсказки" у ТС навсегда возникнет стойкая ненависть к Паскалю. Где цикл перебора символов в строке?

[CMY_3]

Сообщение от digitalis

навсегда возникнет стойкая ненависть к Паскалю

Необязательно, может наоборот заинтересуется, тут всего-то с read разобраться и циклом, хотя да, через строку здесь правильнее, исходя из задания.