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

Question

Информатика

Дашуха

22 марта, 18:13

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

+4

Ответы (1)

Знаете ответ на вопрос?

Евгений · Answer 1

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.