Напишите программу, которая считает знаки пунктуации - Pascal ABC

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

Здравствуйте,помогите пожалуйста написать программу.Напишите программу, которая считает знаки пунктуации в символьной строке. К знакам пунктуации относятся символы из набора ".,;:!?". Входные данные Программа получает на вход символьную строку. Выходные данные Программа должна вывести общее количество знаков пунктуации во входной строке. Примеры входные данные Hi, guys! выходные данные 2

Решение задачи: «Напишите программу, которая считает знаки пунктуации»

Листинг программы

var
  s: string;
  i, count: integer;
 
begin
  readln(s);
  count := 0;
  for i := 1 to length(s) do
    if s[i] in ['.', ',', ';', ':', '!', '?'] then
      inc(count);
  writeln(count);
end.

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

В данном коде используется язык программирования Pascal ABC. Переменные в коде:

s: строка, в которую считывается текст.
i: переменная для счетчика символов.
count: переменная для хранения количества знаков пунктуации. Алгоритм работы программы:
1. Считывается строка s.
2. Инициализируется переменная count значением 0.
3. Запускается цикл for, который проходит по каждому символу в строке s.
4. Внутри цикла проверяется, является ли текущий символ знаком пунктуации. Для этого используется условие s[i] in ['.', ',', ';', ':', '!', '?']. Если символ является знаком пунктуации, то он увеличивается на 1 значение переменной count.
5. После завершения цикла выводится значение переменной count. Пример работы программы: Допустим, введен следующий текст: Hello, world!.
6. Программа считывает этот текст и инициализирует переменную count значением 0.
7. Запускается цикл for, который проходит по каждому символу в тексте.
8. Первый символ 'H' не является знаком пунктуации, поэтому он не увеличивает значение count.
9. Второй символ 'e' не является знаком пунктуации, поэтому он не увеличивает значение count.
10. Третий символ 'l' не является знаком пунктуации, поэтому он не увеличивает значение count.
11. Четвертый символ 'l' не является знаком пунктуации, поэтому он не увеличивает значение count.
12. Пятый символ 'o' не является знаком пунктуации, поэтому он не увеличивает значение count.
13. Шестой символ 'w' не является знаком пунктуации, поэтому он не увеличивает значение count.
14. Седьмой символ 'r' не является знаком пунктуации, поэтому он не увеличивает значение count.
15. Восьмой символ 'd' не является знаком пунктуации, поэтому он не увеличивает значение count.
16. Девятый символ ' ' является пробелом и не увеличивает значение count.
17. Десятый символ '.' является знаком пунктуации, поэтому значение count увеличивается на 1.
18. Одиннадцатый символ ', ' также является знаком пунктуации, поэтому значение count увеличивается на 1.
19. Двенадцатый символ ' ' также является знаком пунктуации, поэтому значение count увеличивается на 1.
20. Тринадцатый символ '.' снова является знаком пунктуации, поэтому значение count увеличивается на 1.
21. Четырнадцатый символ '.' снова является знаком пунктуации, поэтому значение count увеличивается на 1.
22. Пятнадцатый символ '.' снова является знаком пунктуации, поэтому значение count увеличивается на 1.
23. Шестнадцатый символ '.' снова является знаком пунктуации, поэтому значение count увеличивается на 1.
24. Семнадцатый символ '.' снова является знаком пунктуации, поэтому значение count увеличивается на 1.
25. Восемнадцатый символ '.' снова является знаком пунктуации, поэтому значение count увеличивается на 1.
26. Девятнадцатый символ '.' снова является знаком пунктуации, поэтому значение count увеличивается на 1.
27. Двадцатый символ '.' снова является знаком пунктуации, поэтому значение count увеличивается на 1.
28. Последний символ '.' снова является знаком пунктуации, поэтому значение count увеличивается на 1.
29. Выводится значение count, равное 10. Таким образом, программа считает количество знаков пунктуации в введенном тексте и выводит результат.