Ввести целое число и найдите сумму его цифр...желательно сделать это ** компьютере и по...

Question

Ввести целое число и найдите сумму его цифр...желательно сделать это на компьютере и по порядку(поэтапно) объяснить обе задачи

---

Answer 1

Var n,m,p,k,c,g,z,h:integer;

   a,s:real;

Begin

write('Введите число: ');

read(n);

m:=n;

k:=0;

while m<>0 do begin

p:=m mod 10;

k:=k+1;

m:=m div 10;

end;

z:=k;

a:=power(10,k);

g:=1;

s:=0;

for h:=1 to z do begin

c:=n div g mod 10;

g:=g*10;

s:=s+c;

a:=a/10;

end;

writeln('Сумма цифр равна: ',s);

end.