Дана строка, изображающая целое число. Вывести сумму цифр этого числа - 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.

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

  1. В функции Sum объявлена переменная N, которая представляет собой строку, изображающую целое число.
  2. Если N делится на 10 без остатка, то в переменной Sum сохраняется последняя цифра числа, иначе в Sum сохраняется результат вызова функции Sum для частного числа.
  3. В переменной temp хранится частное числа, полученное путем деления N на 10.
  4. В переменной code хранится код, который может быть использован для определения того, было ли число в строке четным или нечетным.
  5. Число считывается из входной строки с помощью функции ReadLn.
  6. Значение числа присваивается переменной N.
  7. Функция Val используется для проверки, является ли число в строке четным или нечетным.
  8. Если число четное, то выводится значение переменной Sum.
  9. Если число нечетное, то выводится сообщение об ошибке.
  10. Считывается следующая строка с помощью функции ReadLn.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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