Задача №647. Дана строка, изображающая целое число. Вывести сумму цифр этого числа - Pascal ABC
Формулировка задачи:
Задача №647. Дана строка, изображающая целое число. Вывести сумму цифр этого числа.
Решение задачи: «Задача №647. Дана строка, изображающая целое число. Вывести сумму цифр этого числа»
textual
Листинг программы
sum:=0;
for i:=1 to length(a) do
sum:=sum+ord(a[i])-ord('0');
Объяснение кода листинга программы
- В начале программы объявляется переменная
sumи инициализируется значением 0. - Затем происходит цикл от 1 до длины строки
a. - Внутри цикла значение каждой цифры строки
aпреобразуется в числовое значение с помощью функцииord(). - Полученное числовое значение каждой цифры вычитается из значения 0, а затем прибавляется к переменной
sum. - После выполнения цикла, значение переменной
sumбудет содержать сумму всех цифр строкиa.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д