Задано числовое значение меньше 10 000 определить сумму цифр в этом числе используя строковые переменные.Добавлено (18.01.2012, 23:56)
---------------------------------------------
Спасибо за помощь. 
Сам решил.
Вот код кому интересно:
Code
var
st,st2:string;
x,y,i,sum,a,b:integer;
begin
Write('Введите число: ');readln(st);
sum:=0;st2:=st;
for i:=1 to length(st) do begin
val(st[i],x,y);
if x<>0 then
sum:=sum+x; end;
val(st2,a,b);
if a<=10000 then
Write('Сума цыфр в числе=',sum) else
Write('Числовое значение больше 10 000');
readln end.
