Сумма цифр. Вводится целое положительное число а<=10^9. Найдите сумму цифр введенного...

Question

Сумма цифр. Вводится целое положительное число а<=10^9. Найдите сумму цифр введенного числа.<br>
Нужно написать программы на языке Паскаль. 9 класс. Прошу, помогите.

Answer 1

Var i,n,sum:integer; s,d:string; a:longint;

begin

writeln('Введите целое положительное число а<=10^9');<br>
Readln(a);

s:= a.ToString();

n:= length(s);

for i:=1 to n do begin

d:= copy(s,i,1);

sum:= sum + strtoint(d);

end;

write('sum = ',sum);

end.