Используя цикл с предусловием выполните следующее : дано натуральное число. определите сумму его цифр

Question

Информатика: Используя цикл с предусловием выполните следующее : дано натуральное число. определите сумму его цифр

hamzmxn66 · Answer

var a,sum: integer;beginreadln(a);sum:=0;while(a 0) do beginsum:=sum+(a mod 10);a:=a div 10;end;write( s= ,sum);end....