Дана строчка знаков. Подсчитать количество вхождений буковкы "n"

Дана строчка знаков. Подсчитать количество вхождений буковкы "n"

Задать свой вопрос
1 ответ
Поставь наихорошее 

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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт