Дана строка, изображающая целое число. Вывести сумму цифр этого числа - Pascal
Формулировка задачи:
дана строка, изображающая целое число. вывести сумму цифр этого числа.
правильно ли будет в этой задаче представить строку одномерным массивом? или есть какойто специальный способ при помощи которого можно описать строку?
Решение задачи: «Дана строка, изображающая целое число. Вывести сумму цифр этого числа»
textual
Листинг программы
function Sum(N: integer): integer; begin if N div 10 = 0 then Sum := N mod 10 else Sum := N mod 10 + Sum(N div 10) end; var N: string; temp,code: integer; begin ReadLn(N); Val(N,temp,code); if code = 0 then WriteLn(Sum(temp)) else WriteLn('Г‡Г*ГЇГЁГ±Гј Г·ГЁГ±Г«Г* Г*ГҐГўГҐГ°Г*Г*!'); ReadLn end.
Объяснение кода листинга программы
- В функции
Sum
объявлена переменнаяN
, которая представляет собой строку, изображающую целое число. - Если
N
делится на 10 без остатка, то в переменнойSum
сохраняется последняя цифра числа, иначе вSum
сохраняется результат вызова функцииSum
для частного числа. - В переменной
temp
хранится частное числа, полученное путем деленияN
на 10. - В переменной
code
хранится код, который может быть использован для определения того, было ли число в строке четным или нечетным. - Число считывается из входной строки с помощью функции
ReadLn
. - Значение числа присваивается переменной
N
. - Функция
Val
используется для проверки, является ли число в строке четным или нечетным. - Если число четное, то выводится значение переменной
Sum
. - Если число нечетное, то выводится сообщение об ошибке.
- Считывается следующая строка с помощью функции
ReadLn
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д