составте программу подсчета общего количества слогов ба, Ба во введенной с клавиатуры строке s/

Ответы:

Pascal неприятен тем, что не дает сравнивать без учета регистра(переводить все в верхний/нижний регистр тоже не вариант), поэтому так:

program test,

uses crt,

const

 st1=ba’,

 st2=Ba’,

var 

 str:string, 

i,n:integer,

begin

 clrscr,

 write(Input string: ),readln(str),

 for i:=1 to length(str) do

  if (st1=copy(str,i,2)) or (st2=copy(str,i,2)) then

   n:=n+1,

 writeln(n),

end.