Предмет: Информатика,
автор: жиляева
помогите составить программу,проверяющею входит ли заданный символ в заданную строку,если входит,то вывести сколько раз
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: Английский язык,
автор: ekrukov435
Предмет: Английский язык,
автор: Buubl
Предмет: Русский язык,
автор: Аноним
Предмет: Математика,
автор: WifeXsses