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

Question

Информатика

Мишара

1 февраля, 17:21

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

+1

Ответы (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.