Сделать в Pascal ABC, посчитать сколько раз в данной строке встречается символ

Question

Информатика

Мир

2 ноября, 15:07

Сделать в Pascal ABC, посчитать сколько раз в данной строке встречается символ

+1

Ответы (1)

Знаете ответ на вопрос?

Арнольд · Answer 1

Var

a: string;

b: char;

i, k: integer;

begin

readln (a) ;

readln (b) ;

for i : = 1 to length (a) do

if a[i] = b then

k : = k + 1;

writeln (k) ;

end.