Дана строчка. Среди знаков строки встречаются числа. Написать программку, вычисляющую сумму

Дана строчка. Посреди знаков строчки встречаются числа. Написать программу, вычисляющую сумму всех цифр строки.

Задать свой вопрос
Крепоченко Андрей
почему фактически никто не пишет, в какой среде нужна программка?
1 ответ
Pascal
---
var s:string;  
     i,c,sum:integer;
begin
    readln(s);
    sum:= 0;
    for i:=1 to Length(s) do
        if (s[i]gt;='0')and(s[i]lt;='9') then
        begin
           c:=ord(s[i])-48;
           sum:=sum+c;
        end;
    writeln(sum);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт