Program Str5;
Var
S : String;
I,X,A,C : Integer;
Begin
Writeln('Введите натуральное число');
Readln(S); {Число вводится в строковую переменную}
A:=0;
For I:=1 To Length(S) Do
Begin
Val(S[I],X,C); {Цифровой символ превращается в число}
A:=A+X {Цифры суммируются}
End;
Writeln('Сумма цифр равна ',A)
End.
Теперь рассмотрим еще несколько действий над строками:
оператор DELETE(S,I,C) из строковой переменной S удаляет C символов, начиная с I-того;
оператор INSERT(SN,S,I) вставляет подстроку SN в строковую переменную S перед символом с номером I;
функция COPY(S,I,C) возвращает подстроку строки S из C символов, начиная с символа с номером I;
функция Pos(SN,S) возвращает номер символа, с которого в строке S начинается подстрока SN (позицию первого вхождения подстроки в строку). Если такой подстроки нет, то возвращается ноль.
Пример их использования:
"Во введенной строке заменить все вхождения подстроки 'ABC' на подстроки 'KLMNO'".
Достарыңызбен бөлісу: |
