Паскаль Определить, как часто встречается определенный символ в строке. вот начало...

Question

Паскаль Определить, как часто встречается определенный символ в строке. вот начало программы var st:string; burger:char; i,kol:integer; begin write('Введи строку '); readln(st); write('Введи символ '); readln(burger); закончите плз

Answer 1

var s: string;

   i, k: integer;

begin

 writeln('Enter string:');

 readln(s);

 k := 0;

//Вместо Y символ(думаю сможеш прицепить ввод)

 for i := 1 to length(s) do if (s[i] = 'Y') then inc(k);

 write('Quantity of symbol in string is equal to ', k);

 readln

end.