Задача с подсчетом количества букв - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Пользователь вводит предложение, которое заканчивается ".","!" или "?". Вывести количество символов "п" в предложении: если данный символ отсутствует, вывести количество разделительных знаков(пунктуации). Нельзя использовать: стандартные процедуры и функции (с модулей FPC).

Решение задачи: «Задача с подсчетом количества букв»

textual
Листинг программы
var
  s: string;
  i, k, kz: integer;
 
begin
  read(s);
  for i := 1 to length(s) do
    if s[i] = 'п' then inc(k) else if (s[i] = ',') or (s[i] = '.') or (s[i] = '?') or (s[i] = '!') then inc(kz);
  if k <> 0 then write(k) else write(kz);
end.

Объяснение кода листинга программы

  1. Объявлены переменные: s - строка (строковый тип данных) i, k, kz - целочисленные переменные (тип данных integer)
  2. С помощью функции read(s) вводится строка s
  3. В цикле for перебираются все символы строки s
  4. Если символ равен 'п', то увеличивается значение переменной k на 1
  5. Если символ равен запятой, точкам, вопросительному или восклицательному знакам (',', '.', '?', '!'), то увеличивается значение переменной kz на 1
  6. После окончания цикла проверяется условие: если k не равно 0, то выводится значение переменной k, иначе выводится значение переменной kz
  7. Код завершается

Оцени полезность:

9   голосов , оценка 4 из 5
Похожие ответы