Question

Вася подсчитал сумму цифр натурального числа N , а затем сумму цифр у полученной суммы цифр. Какое число он получил? Входные данные Вводится одно натуральное число N , меньшее 10 000 . Выходные данные Выведите одно натуральное число — ответ в задаче. НУЖНО СДЕЛАТЬ НА PASCAL ABC

Answer 1

Var n,s:integer;
begin
readln(n);
s:=0;
while n>0 do
 begin
 s:=s+n mod 10;
 n:=n div 10;
 end;
writeln(s div 10 + s mod 10);
end.

Пример:
4093
7

Answer 2

Программа на Pascal ABC:

program SumOfDigits;

var
  N, sum, digit, originalNumber: integer;

begin
  // Ввод числа N
  write('Введите натуральное число N: ');
  readln(N);
  
  // Сумма цифр числа N
  originalNumber := N;
  sum := 0;
  while N > 0 do
  begin
    digit := N mod 10;
    sum := sum + digit;
    N := N div 10;
  end;
  
  // Сумма цифр полученной суммы
  N := sum;
  sum := 0;
  while N > 0 do
  begin
    digit := N mod 10;
    sum := sum + digit;
    N := N div 10;
  end;
  
  // Вывод результата
  writeln('Полученное число: ', sum);
end.

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