Проверить, является ли частью данного слова слово 'сок' - 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.

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

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