Question

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

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.