дана строка, состоящая только из цифр. Найти сумму этих цифр.

Var
st: string;
i, s, x, err: integer;
begin
write(Vvedite stroku: );
readln(st);
for i:=1 to length(st) do   
begin   
val(st[i], x, err);   
s:=s+x;   
end;
writeln(Summa = , s);
readln;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.