Убрать из строки все символы, отличные от цифр. Найти сумму этих цифр - Pascal ABC

Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.60/5:

@lubov2000 0 / 0 / 1 Регистрация: 30.06.2019 Сообщений: 8

	Убрать из строки все символы, отличные от цифр. Найти сумму этих цифр 30.06.2019, 17:23. Показов 930. Ответов 1 Метки нет (Все метки) Убрать из строки все символы, отличные от цифр. Найти сумму этих цифр. 0

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

30.06.2019, 17:23

Ответы с готовыми решениями:

Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из этих цифр, начиная с разряда единиц.
Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из этих цифр, начиная с разряда единиц. ...

Дано число n из 5 цифр. Составить все комбинации этих цифр
Помогите решить. Вводим число, загоняем по элементам в массив, после в нем перебираем все комбинации цифр этого числа. Начало что-то...

Слова которые состоят только из цифр преобразуются в сумму цифр этих слов и если слово содержит буквы и цифры то буквы в них заменяются на «*».
Вводится предложение в этом предложении слова которые состоят только из цифр преобразуются в сумму цифр этих слов и если слово содержит...

Pvt

Заблокирован

30.06.2019, 17:50

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var i,s:integer;
    s1,s2:string;
begin
  //s1:='xtyhudcu875otlog.og57urgl.';
  write('Строка: ');
  readln(s1);
  s2:='';
  s:=0;
  for i:=1 to length(s1) do
  if(s1[i]>='0')and(s1[i]<='9')then s:=s+ord(s1[i])-48
  else s2:=s2+s1[i];
  writeln(s2);
  writeln(s);
  readln;
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

30.06.2019, 17:50

Помогаю со студенческими работами здесь

Вывести на экран все символы цифр заданного текстовой строки
Вывести на экран все символы цифр заданного текстовой строки. Вот мой код к этой программе Проблема в том к примеру я ввожу: сейчас...

Найти количество и сумму цифр, сумму первой и последней цифр заданного числа z
Дано число z. Найти: количество цыфр в нём, сумму цыфр числа z, первую та последнюю цыфры числа z. Что не так? Var ...

Убрать из строки все символы, отличные от цифр
Убрать из строки все символы, отличные от цифр. Найти сумму этих цифр.

Удалить из текста все символы, отличные от цифр и пробелов.
помогите решить следующую задачу по ассемблеру: Удалить из текста все символы, отличные от цифр и пробелов.

Найти сумму этих цифр. Если в строке встречаются другие символы, необходимо вывести на экран сообщение
С клавиатуры вводится строка, состоящая из цифр. Найти сумму этих цифр. Если в строке встречаются другие символы, необходимо вывести на...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .

Наверх