Найти сумму цифр - Pascal ABC

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

Вводится предложение в этом предложении слова которые состоят только из цифр преобразуются в сумму цифр этих слов и если слово содержит буквы и цифры то буквы в них заменяются на «*». Нужно решить с помощью множеств. Помогите.

Код к задаче: «Найти сумму цифр - Pascal ABC»

textual
const rz=[' ',',','.'];//разделителей слов можешь добавить
      cf=['0'..'9'];
..................................
if not(s[i] in rz)and((i=1)or(s[i-1] in rz)) then
.................................
 while(j<=length(s))and not(s[j] in rz) do

8   голосов, оценка 4.500 из 5


СОХРАНИТЬ ССЫЛКУ