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

Question

Информатика

Любомысл

7 октября, 08:38

Сделать в 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.