Форум программистов > Delphi: Общие вопросы > Подcчитать сумму цифр целого числа
Автор: Fedor 20.3.2005, 11:05
Код
var s:string; a,t,i,sum:integer; begin sum:=0; readln(a); {ввод числа} str(a,s); {перевод из числа в строку} for i:=1 to length(s) do begin val(s[i],t,err); {перевод i-того символа строки в число} sum:=sum+t; end; writeln(sum); end.