Question

ПАСКАЛЬ. Решите задачу с помощью строк. Пользователь водит слово - мама, и букву - м. Паскаль выводит количество этих самых букв из строки, которую мы ввели , то есть 2. Еще пример: Введите слово - кошка Введите букву - к Количество букв - 2

Answer 1

Ответ посмотрите на картинке

Answer 2

К сожалению, я не являюсь интерпретатором языка программирования Pascal и не могу выполнять код на этом языке. Однако, я могу предоставить вам алгоритм решения задачи на подобном псевдокоде, который можно легко адаптировать для Pascal.

Псевдокод решения задачи:

markdownCopy code
1. Введите слово word
2. Введите букву letter
3. Инициализируйте переменную count = 0
4. Пройдитесь по каждому символу ch в слове word:
     4.1. Если ch равно букве letter, увеличьте count на 1
5. Выведите значение count

Теперь давайте преобразуем этот псевдокод в код на Pascal:

pascalCopy code
program CountLetters;
var
  word: string;
  letter: char;
  count: integer;
  i: integer;
begin
  write('Введите слово: ');
  readln(word);
  
  write('Введите букву: ');
  readln(letter);
  
  count := 0;
  for i := 1 to Length(word) do
  begin
    if word[i] = letter then
      count := count + 1;
  end;

  writeln('Количество букв "', letter, '" в слове "', word, '": ', count);
end.

После ввода слова "мама" и буквы "м", программа выведет:

jsonCopy code
Количество букв "м" в слове "мама": 2

Аналогично, если ввести слово "кошка" и букву "к", программа выведет:

jsonCopy code
Количество букв "к" в слове "кошка": 2

Вы можете скомпилировать и запустить этот код на своей среде разработки Pascal.