Question

Дана строка. Найти сумму записанных в строке чисел.

Answer 1

var a:string;i,s:integer;
begin
read (a);
for i:=1 to length(s) do
begin
s:=s+i;
write (s);
end;
end.