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

Question

Информатика

Дашуха

24 апреля, 08:21

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

+1

Ответы (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.