Дана строка, состоящая только из цифр. Найти сумму этих цифр.
Дана строка, состоящая только из цифр. Найти сумму этих цифр.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы