Проверить, является ли частью данного слова слово 'сок' - Pascal ABC
Формулировка задачи:
1)Написать программу, проверяющую, является ли частью данного слова слово 'сок'. Ответ должен быть 'да' или 'нет'.
2)В заданный непустой текст входят только цифры и буквы. Определить, удовлетворяет ли он следующему свойству:Сумма числовых значений цифр, входящих в текст, равна длине текста.
Решение задачи: «Проверить, является ли частью данного слова слово 'сок'»
textual
Листинг программы
n := 0; for i := 1 to length(s) do if s[i] in ['1'..'9'] then n := n + ord(s[i]) - ord('0'); writeln(n = length(s));
Объяснение кода листинга программы
1. Переменная n инициализируется значением 0.
2. Затем происходит цикл for, который выполняется от 1 до длины(s).
3. Внутри цикла проверяется, является ли текущий элемент s[i] частью слова 'сок'. Для этого используется условие if s[i] in ['1'..'9'].
4. Если условие истинно, то переменная n увеличивается на разницу между порядковым номером текущего символа и порядковым номером символа '0'.
5. После завершения цикла выводится значение переменной n с помощью команды writeln.
6. Выводится сообщение n = length(s), которое говорит о том, что длина строки s равна n.