Question

помогите пожалуйста, информатика ​

Answer 1

Ответ:

В паскале

var

str: string[30];

x: char;

i, k: integer;

begin

k := 0;

x := 'b ';

readln(str);

for i := 1 to length(str) do

begin

if str[i] = x then k := k + 1;

end;

writeln(k);

end.