Question

найдите количество исковой буквы в заданном слове
Пожалуйста
в паскаль
очень нужно
сейчас сдавать ​

Answer 1

var c, s: string;

i, sum: integer;

begin

   s:='moloko';

   c:='o';

   sum:=0;

   for  i:=1 to length(s) do

       if s[i] = c then

           sum += 1;

   writeln(sum);

end.