Определить сумму цифр числа - Pascal

Узнай цену своей работы

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

Всем, привет нужна помощь: С клавиатуры вводится длинное целое число, не менее 50 цифр. Определить сумму цифр данного числа Зарание спасибо!

Решение задачи: «Определить сумму цифр числа»

textual
Листинг программы
var n:string;
     j,i,s,k:integer;
begin
 
s:=0;
readln(n);
for i:=1 to length(n) do
s:=s+ord(n[i])-ord('0');
write(s);
end.

Объяснение кода листинга программы

  1. Объявляется переменная n с типом string, а также переменные j, i, s, k с типом integer.
  2. Присваивается значение 0 переменной s.
  3. Считывается введенная пользователем строка и сохраняется в переменной n.
  4. Запускается цикл for, который проходит по каждому символу в строке n (от 1 до длины строки).
  5. Для каждого символа строки происходит следующее:
    • Вычисляется целочисленное значение каждого символа, вычитая из его ASCII-кода ASCII-код символа '0'.
    • Полученное значение добавляется к переменной s.
  6. Выводится значение переменной s, которое является суммой цифр введенного числа.

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

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