Question

Удалить из строки все символы «S» стоящие как после «.»,так и после «;»,подсчитать общее количество символов «А» и «B»

Answer 1

program raf105;

var

 st: string;

 a,b,s,i: integer;

begin

writeln('Введите строку:');

readln(st);

for i:=1 to length(st) do

begin

 if (i<>1) and ( (st[i-1]='.') or (st[i-1]=';') ) and (st[i]='S')

   then s:= s+1;

 if st[i] = 'A'

   then a:= a+1;

 if st[i] = 'B'

   then b:= b+1;

end;

writeln('Количество символов "S" после "." или ";": ',s);

writeln('Количество символов "A": ',a);

writeln('Количество символов "B": ',b);

end.

PascalABC 3.4.2