Дана строка. Надо написать программу, определяющую, какой символ "а" или "б" встречается чаще. (Паскаль)

Ответ:

Объяснение:

Var a,b,x,k,j : Integer;

Begin

Read (a);

Read(b);

Read(x);

While x<>0 do

Begin

If x mod 10=a then k:=k+1;

If x mod 10=b then j:=j+1;

X:=x div 10;

End;

If k=j then WriteLn('одинаковое количество ');

If k>j then WriteLn(символов а больше)

Else

WriteLn (символов b больше)