Question

Ввести целое число и найти сумму его цифр Пример: Введите целое число: 1234 Сумма цифр числа 1234 равна 10 Решите через паскаль

Answer 1

Var

a, Summ:integer;

begin

write ('Введите число ');

readln (a);

Summ : = 0;

while a > 0 do

begin

Summ : = Summ + a mod 10;

a : = a div 10;

end;

writeln ('Сумма цифр равна ', Summ);

end.

Answer 2

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

pascalCopy code
program SumOfDigits;

var
  num, digit, sum: integer;

begin
  sum := 0;
  
  writeln('Введите целое число:');
  readln(num);
  
  while num <> 0 do
  begin
    digit := num mod 10; // Получаем последнюю цифру числа
    sum := sum + digit;  // Добавляем цифру к сумме
    num := num div 10;   // Удаляем последнюю цифру числа
  end;
  
  writeln('Сумма цифр числа равна ', sum);
end.

Этот код читает целое число с клавиатуры и затем находит сумму его цифр с помощью цикла while. В каждой итерации цикла мы извлекаем последнюю цифру числа с помощью операции mod 10, добавляем ее к переменной sum, а затем удаляем эту цифру из числа с помощью операции div 10. Процесс повторяется до тех пор, пока число не станет равным 0.

Например, если вы введете число 1234, программа выведет "Сумма цифр числа равна 10", что является правильным результатом для этого числа.