С клавиатуры вводят слово и символ.Составте программу которая:подсчитывает количество вхождений заданного символа

Question

С клавиатуры вводят слово и символ.Составте программу которая:подсчитывает количество вхождений заданного символа

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a:string; b:char; i,sum:integer; begin readln(a,b); for i:=1 to length(a) do begin if pos(b,a)<>0 then begin sum:=sum+1; delete(a,1,pos(b,a)); end; end; writeln(sum); end.