Сумма всех цифр в числе вводимых пользователем, программа без while . Паскаль , пример :...

Question

Сумма всех цифр в числе вводимых пользователем, программа без while . Паскаль , пример : число 127 значит сумма 10

Comments

хз как на паскале, но в C++ суть проста, вводишь числа либо в стринг, либо в массив чар, потом вводишь переменную суммы и в цикле sum=num[i]+sum. это не является решением, так что пишу сюда, вдруг натолкнет на что то

---

блин тупой паскале

---

я уверен в паскале все еще проще :))))

---

а, я еще когда то давно делал как то через деление с остатком на 10

---

мб поможет

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write('сумма: ',ReadInteger('Введите число: ').ToString().Select(x->x.ToDigit()).Sum());
end.

Answer 2

//Pascal
var x, Sum: longint;
begin
  write('Число = ');
  readln(x);
  while (x<>0) do
  begin
    Sum := Sum + (x mod 10);
    x := x div 10;
  end;
 writeln('Сумма цифр = ', Sum);
end.