Question

Напишите программу, которая находит сумму цифр в введённом с клавиатуры натуральное числе. Программа получает на вход целое число, не привышающее 30000, программа должна вывести 1 число сумму цифр введённом числе. Язык - Паскаль(!!!) Помогите пожалуйста, срочно

Answer 1

Ответ:

s= int (input())

m=0

while s!=0

m+=s%10

s=s/10

print(m)

Answer 2

Конечно, вот программа на языке Pascal, которая находит сумму цифр введенного натурального числа:

pascalCopy code
program SumOfDigits;
var
  number, digit, sum: integer;
begin
  // Ввод натурального числа с клавиатуры
  writeln('Введите натуральное число, не превышающее 30000:');
  readln(number);
  
  // Проверка на валидность введенного числа
  if (number < 1) or (number > 30000) then
  begin
    writeln('Число не соответствует условию (не натуральное или превышает 30000).');
    readln;
    exit;
  end;
  
  // Инициализация суммы
  sum := 0;
  
  // Вычисление суммы цифр
  while number > 0 do
  begin
    digit := number mod 10; // Получаем последнюю цифру числа
    sum := sum + digit;     // Добавляем цифру к сумме
    number := number div 10; // Удаляем последнюю цифру числа
  end;
  
  // Вывод суммы цифр
  writeln('Сумма цифр введенного числа: ', sum);
  readln;
end.

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