Последние записи

made in programmersforum 6

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

16th
Июн

Пример работы со строками в delphi

Posted by Chas under Пост-обзор

1 заменить «о» на «а»
2 определить количество цифр в тексте, подсчитать их сумму
3 удалить все цифры из текста
4 подсчитать количество (суммарное вхождение букв «м» и «н»), стоящих на нечетных позициях

fenryr:

str := '333ооо333о8ооо99л';

str := AnsiReplaceStr(str , 'о','а');

 str := '3ооо3о8ооо02л';

   sum := 0;

   count := 0;

   for i := 1 to length (str) do

    if str in ['0'..'9'] then

      begin

       sum := sum + integer(integer(str) - 48);

       count : count + 1;

      end;

str := '3ооо3о8ооо02л1';
i := 1;
while i <= length (str) Do Begin if (str[i] in ['0'..'9']) Then Delete (str,i,1) Else i := i + 1; End;[/code]
str := 'амаанммннн';
i := 1;
count := 0;
while i <= length (str) Do Begin if (str[i] in ['м','н']) and (i mod 2 = 1) Then Inc (count); inc (i); End;[/code]