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

Question

Информатика

Родион

16 января, 14:35

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

+3

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