Дано пятизначное число . найти сумму его чисел Паскаль

Question

Дано пятизначное число . найти сумму его чисел Паскаль

Comments

Ц числа не может быть сумма чисел. Видимо, сумма цифр?

---

*У числа

---

да

---

цифр

Answer 1

Var x,s,i:integer; begin writeln('введите число'); readln(x); s:=0; while ( x<>0 ) do begin s:=s+(x mod 10); x:=x div 10; end; writeln( 'Сумма цифр числа =', s ); end.