Задайте 4-значне число. Знайдіть суму його цифр. Паскаль

Question

Задайте 4-значне число. Знайдіть суму його цифр. Паскаль

Answer 1

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=Abs(ReadInteger('Введите натуральное число:'));
  // Abs - защита от злобных буратинок, вводящих отрицательные числа
  var s:=0;
  while n>0 do begin
    s+=n mod 10;
    n:=n div 10
    end;
  Writeln('Сумма цифр равна ',s)
end.

Пример
Введите натуральное число: 3052
Сумма цифр равна 10

Замечание: число не обязательно должно быть четырехзначным