Question

Напишите, пожалуйста, на Паскале: C клавиатуры вводится натуральное 3 –е число. Найдите сумму цифр числа. Входные данные: Введите натуральное число: 371 Выходные данные: Сумма цифр числа: 11

Answer 1

Ответ:

Объяснение:

Пойдет?

Добавил 2 вариант решения через цикл while (только я забыл изменить m<>299, вместо m<>0 и можно добавить проверку, на ввод именно 3-е числа)

Answer 2

Конечно, вот программа на Pascal, которая выполняет задачу:

pascalCopy code
program SumOfDigits;

var
  num, digit, sum: Integer;

begin
  // Введите натуральное число с клавиатуры
  Write('Введите натуральное число: ');
  Readln(num);

  // Инициализируем сумму цифр числа
  sum := 0;

  // Вычисляем сумму цифр числа
  while num > 0 do
  begin
    digit := num mod 10; // Получаем последнюю цифру числа
    sum := sum + digit;  // Добавляем цифру к сумме
    num := num div 10;   // Удаляем последнюю цифру из числа
  end;

  // Выводим результат
  Writeln('Сумма цифр числа: ', sum);
end.

Вы можете скопировать этот код в среду разработки Pascal и выполнить его, чтобы получить сумму цифр введенного натурального числа.