Сколько слов начинается на "a"

@Kvartir_11 · Регистрация: 23.02.2010

Author24 — интернет-сервис помощи студентам

Определить сколько слов в тексте начинается на букву "а" (Слово может начинаться как с прописной, так и со строчной буквы). Огромная просьба, писать программу целиком. Большое спасибо!

@yanyk1n · 23.02.2010, 20:39

Pascal

uses crt;
var  st,buf:string;
k:integer;
begin
 k:=0;
 clrscr;
 write('-> ');
 readln(st);
 repeat
  if (st[1]=' ') or (length(st)=0) then while st[1]=' ' do delete(st,1,1)
  else
  begin
   while (st[1]<>' ') and (length(st)>0) do
   begin
    buf:=buf+st[1];
    delete(st,1,1);
   end;
  if upcase(buf[1])='A' then inc(k);
  buf:='';
  end;
 until (length(st)=0) and (length(buf)=0);
 writeln(k);
 readln;
end.

@Kvartir_11 · 23.02.2010, 20:49 **[ТС]**

Огромное, большое Спасибо )))

@Kvartir_11 0 / 0 / 0 Регистрация: 23.02.2010 Сообщений: 6
		1
	Сколько слов начинается на "a" 23.02.2010, 20:38. Показов 1775. Ответов 2 Метки нет (Все метки) Определить сколько слов в тексте начинается на букву "а" (Слово может начинаться как с прописной, так и со строчной буквы). Огромная просьба, писать программу целиком. Большое спасибо! 0

@Kvartir_11 0 / 0 / 0 Регистрация: 23.02.2010 Сообщений: 6
	23.02.2010, 20:49 [ТС]	3
	Огромное, большое Спасибо ))) 0

Сколько слов начинается на "a"

Решение