Question

Напишите в Паскале программу для вычисления цифровой суммы положительного целого числа. Даю 70 баллов

Answer 1

Программа:

Pascal:

var

 n, i: integer;

begin

 write('n = '); readln(n);

 repeat

   i := i + n mod 10;

   n := n div 10

 until n = 0;

 writeln(i);

end.

Answer 2

Привет! Я могу помочь тебе написать программу на языке Паскаль для вычисления цифровой суммы положительного целого числа. Вот пример программы:

program DigitalSum;
var
  num, digit, sum: integer;
begin
  sum := 0;
  
  // Ввод числа с клавиатуры
  writeln('Введите положительное целое число:');
  readln(num);
  
  // Проверка на положительность числа
  if num <= 0 then
  begin
    writeln('Ошибка! Введено неположительное число.');
    exit;
  end;
  
  // Вычисление цифровой суммы
  while num > 0 do
  begin
    digit := num mod 10;  // Получаем последнюю цифру числа
    sum := sum + digit;  // Добавляем цифру к сумме
    num := num div 10;  // Удаляем последнюю цифру числа
  end;
  
  // Вывод результата
  writeln('Цифровая сумма числа: ', sum);
end.

В этой программе мы сначала запрашиваем у пользователя положительное целое число. Затем мы проверяем, является ли число положительным. Если число отрицательное или равно нулю, программа выводит сообщение об ошибке и завершается. Если число положительное, мы выполняем цикл, который вычисляет цифровую сумму числа. В каждой итерации цикла мы получаем последнюю цифру числа, добавляем ее к сумме и удаляем последнюю цифру числа. В конце программы мы выводим результат - цифровую сумму числа.

Надеюсь, это поможет тебе! Если у тебя есть еще вопросы, не стесняйся задавать.