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.

Answer 2

что значит lengts . паскаль выдает ошибку

Answer 3

length(s) - функция, которая возвращает длину строки s

Answer 4

но паскаль выдает ошибку

Answer 5

какую ошибку?