Maratos668 (29.06.2014 в 18:46)
Саня (29.06.2014 в 18:45)
program m;
var
i,sum:longint;
s:string;

function StrToInt(Value: string): integer;
var
code, i: integer;
begin
VAL(Value, i, code);
if code = 0 then
StrToInt:=i;
end;

begin
read(s);
sum :=0;

for i := 1 to length(s) do
sum := sum + StrToInt(s);

writeln('Сумма чисел: ',sum);
readln;
end.

не то(( ну спс