Question

С помощью процедуры вывести сумму цифр числа( Pascal)

Answer 1

program ppvschch;

uses

crt;

procedure summ(n: integer);

var

sum: integer;

begin

sum := 0;

while (n <> 0) do

begin

sum := sum + (n mod 10);

n := n div 10;

end;

writeln('Сумма цифр числа: ', sum);

end;

begin

summ(123);

readln;

end.

Answer 2

Для вывода суммы цифр числа в Pascal можно использовать процедуру. Вот пример кода:

program SumOfDigits;
var
  num, digit, sum: integer;

procedure CalculateSumOfDigits(number: integer; var result: integer);
begin
  result := 0;
  while number > 0 do
  begin
    digit := number mod 10;
    result := result + digit;
    number := number div 10;
  end;
end;

begin
  writeln('Введите число:');
  readln(num);
  CalculateSumOfDigits(num, sum);
  writeln('Сумма цифр числа ', num, ' равна ', sum);
end.

В этом примере мы объявляем переменные `num`, `digit` и `sum`. Процедура `CalculateSumOfDigits` принимает число и переменную для хранения результата. Внутри процедуры мы используем цикл `while`, чтобы разбить число на отдельные цифры и добавить их к сумме. Затем мы вызываем эту процедуру, передавая в нее введенное пользователем число `num` и переменную `sum`. Наконец, мы выводим результат на экран.

Примечание: В данном ответе использованы исходные коды, которые были найдены в поисковых результатах. Однако, из-за отсутствия полной информации о контексте исходных кодов, необходимо учитывать возможные различия в синтаксисе и структуре программы. Рекомендуется проверить и адаптировать код под свои потребности и требования языка Pascal.