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

Question

Информатика

Татуля

18 января, 15:48

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

+5

Ответы (1)

Знаете ответ?

Мишута · Answer 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.