помогите составить программу, проверяющею входит ли заданный символ в заданную строку, если входит, то вывести сколько раз

Question

Информатика

Митя

12 августа, 20:02

помогите составить программу, проверяющею входит ли заданный символ в заданную строку, если входит, то вывести сколько раз

+4

Ответы (1)

Знаете ответ на вопрос?

Юна · Answer 1

var s:string;

i:integer;

c:char;

begin

readln (s) ;

readln (c) ;

while pos (c, s) 0 do begin

inc (i) ;

delete (s, pos (c, s),1) ;

end;

writeln (i) ;

end.