Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 18.04.2023
Сообщений: 19

Перед каждой цифрой 5 добавляется цифра 2

18.04.2023, 00:13. Показов 670. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Всем добрый день! Помогите решить задачу на паскале
Перед каждой цифрой 5 нужно добавить цифру 2. Пример: 2545→225425
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
18.04.2023, 00:13
Ответы с готовыми решениями:

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

Перед каждой цифрой исходной строки вставить символ «№»
2. Перед каждой цифрой исходной строки вставить символ «№».

Строки: перед каждой цифрой в строке вставить символ «N»
Перед каждой цифрой в строке вставить символ «N». Можете решить? Меня всегда бесят эти строки

4
 Аватар для AHBAR
1077 / 488 / 316
Регистрация: 05.04.2013
Сообщений: 2,141
18.04.2023, 05:34
Удобнее всего это сделать, если сконвертировать число в строку
Pascal
1
2
3
4
5
6
7
8
9
10
var s: string;
a,i:integer;
begin
write('a=');
readln(a);
str(a, s);
for i := length(s) downto 1 do if s[i] = '5' then insert(s,i,'2');
writeln('new a=', s);
readln;
end;
0
0 / 0 / 0
Регистрация: 18.04.2023
Сообщений: 19
18.04.2023, 17:02  [ТС]
А можно решить с помощью простых математических операций без массива и конъюнктирования, пожалуйста
0
Модератор
10451 / 5746 / 3409
Регистрация: 17.08.2012
Сообщений: 17,477
19.04.2023, 00:10
alinysh, строка, хоть и является, по сути, массивом символов, тем не менее, массивом её называть не принято. И ещё. Что такое "конъюнктирование"? Операция конъюнкции, что ли? И где Вы её увидели, позвольте спросить?

Без перевода числа в строку:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var
  n, k, d, m, s: integer;
begin
  write('n = ');
  readln(n);
  if n < 0 then s := -1 else s := 1;
  k := abs(n);
  n := 0;
  m := 1;
  repeat
    d := k mod 10;
    k := k div 10;
    n := n + d * m;
    m := m * 10;
    if d = 5 then
      begin
        n := n + 2 * m;
        m := m * 10
      end
  until k = 0;
  n := s * n;
  writeln('n = ', n);
  readln
end.
Замечание: если в результате преобразования получится число, большее 231-1, то программа выдаст неверный результат из-за целочисленного переполнения. Избавиться от этого можно либо с помощью длинной арифметики, либо с использованием строкового представления числа, как это сделал AHBAR.
1
 Аватар для AHBAR
1077 / 488 / 316
Регистрация: 05.04.2013
Сообщений: 2,141
19.04.2023, 05:45
Цитата Сообщение от Cyborg Drone Посмотреть сообщение
Что такое "конъюнктирование"?
я так понял, он так прочитал слово
Цитата Сообщение от AHBAR Посмотреть сообщение
сконвертировать
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
19.04.2023, 05:45
Помогаю со студенческими работами здесь

Во введённой пользователем строке добавте пробелы перед каждой цифрой
Во введённой пользователем строке добавте пробелы перед каждой цифрой. Вывод на экран осуществлять одним оператором Write.

Перед каждой четной цифрой данного числа вставить «1». 12345 - 1123145
Перед каждой четной цифрой данного числа вставить «1». 24563 - 12145163

В заданном тексте перед каждой цифрой, за которой стоит пробел вставить знак ‘+’
В заданном тексте перед каждой цифрой, за которой стоит пробел вставить знак ‘+’. Вот что у меня получилось: var st : string; i :...

Дано натуральное число n. Напечатать его, ставя перед каждой цифрой столько пробелов, каково значение этой цифры
Дано натуральное число n.Напечатать его,ставя перед каждой цифрой столько пробелов,каково значение этой цифрыю Пример: 123 --&gt;...

Если в тексте есть цифра "2", то каждый символ перед этой цифрой заменить на букву "а"
Помогите пожалуйста с задачкой в Паскале. Дан текст. Если в нем есть цифра 2, то каждый символ перед этой цифрой заменить на букву а.:(


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru