Нужно написать ** Паскале=))Дан набор слов, разделенных точкой с запятой (;), который...

Question

Нужно написать на Паскале=))
Дан набор слов, разделенных точкой с запятой (;), который заканчивается двоеточием (:). Определить, сколько в нем слов, заканчивающихся буквой «а»

Comments

Какой именно паскаль?

---

Пофиг. Составил для абц.var s:string;var i,k:integer;beginread(s);k:=0;for i:=2 to length(s) dobeginif (s[i]=';') or (s[i]=':') then if s[i-1]='а' then k:=k+1;if s[i]=':' then break;end;write(k);end.

---

Sergrif, ты бы в ответ это записал, а то решаешь, а кто-нибудь потом это за свое выдает)))) и кстати, я все для АБС пишу, смысл мне с другими заморачиваться? им надо, пусть и конвертируют)))

---

спасибо,очень выручили=))

Answer 1

Var s : string;
  i, k : integer;
Begin
  read(s);

  for i:=1 to length(s)-1 do
    if (s[i] = 'а') and ((s[i + 1] = ';') or (s[i + 1] = ':')) then
      k := k + 1;

  write(k);
End.