Дана строка символов. Подсчитать количество вхождений буквы "n"
Дана строка символов. Подсчитать количество вхождений буквы "n"
Гость
Ответ(ы) на вопрос:
ГостьПоставь наилучшее
var n:string; d:Char; i,h:integer;
begin
Readln(d);//Символ
readln(n); //Строка
h:=0;
for i:=1 to Length(n) do
if n[i]=d then
Inc(h);
Writeln;
Writeln(h);
readln;
end.
Не нашли ответ?
Похожие вопросы