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

Я могу помочь вам с вашим вопросом о количестве искомой буквы в заданном слове на языке Паскаль.

Для того, чтобы найти количество искомой буквы в заданном слове, вам нужно написать программу, которая будет перебирать все символы слова и сравнивать их с искомой буквой. Если символ совпадает с искомой буквой, то нужно увеличить счетчик на единицу. В конце программы нужно вывести значение счетчика на экран.

Например, если вы хотите найти количество буквы а в слове паскаль, то ваша программа может выглядеть так:

var
  s: string; // заданное слово
  c: char; // искомая буква
  i, n: integer; // счетчик символов и счетчик совпадений
begin
  s := 'паскаль'; // присваиваем слово переменной s
  c := 'а'; // присваиваем букву переменной c
  n := 0; // обнуляем счетчик совпадений
  for i := 1 to length (s) do // цикл по всем символам слова
    if s [i] = c then // если символ равен искомой букве
      n := n + 1; // увеличиваем счетчик совпадений на единицу
  writeln ('Количество буквы ', c, ' в слове ', s, ' равно ', n); // выводим результат на экран
end.

Если вы запустите эту программу, то получите следующий вывод:

Количество буквы а в слове паскаль равно 2

Надеюсь, что это ответило на ваш вопрос. Если у вас есть еще какие-то вопросы, я буду рад помочь.