Уплотнить числовую строку

15.12.2015, 16:53. Показов 390. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Задана строка состоящая из цифр. Требуется, начиная
слева, уплотнить эту строку. То есть если к цифре прибавить
справа стоящую цифру и вновь будет цифра, то это надо сделать.
Если можно прибавить несколько цифр и в результате получится
цифра, то складываются несколько цифр. Пример
912345
к 9 прибавить ничего нельзя - будет двузначное число
Зато к 1 можно прибавить 2 и 3 - будет 6
И далее мы можем к 4 прибавить 5. Ответ: 969.
Надо вывести на экран исходное число и "сжатое число".

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
REM  Программа сканирует строку и если
REM  можно сложить рядом стоящие цифры,
REM  то она их складывает и составляет
REM  другую строку. 
 
DECLARE FUNCTION M% (n%)
DECLARE FUNCTION SSTR$ (n%)
 
CLS
DIM SHARED S AS STRING
DIM S2 AS STRING
DIM i AS INTEGER
DIM j AS INTEGER
DIM sum AS INTEGER
 
S = "321374423703316124614313"
PRINT S: PRINT
 
i = 1
DO
   sum = 0
 
   DO WHILE sum + M(i) <= 9
      sum = sum + M(i)
      i = i + 1
      IF i > LEN(S) THEN EXIT DO
   LOOP
   S2 = S2 + SSTR(sum)
LOOP UNTIL i > LEN(S)
 
PRINT S2
END
 
FUNCTION M% (n AS INTEGER)
   M = VAL(MID$(S, n, 1))
END FUNCTION
 
FUNCTION SSTR$ (n AS INTEGER)
   SSTR = LTRIM$(STR$(n))
END FUNCTION

Programming

Эксперт

39485 / 9562 / 3019

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

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

Блог

15.12.2015, 16:53

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

Преобразовать числовую строку по правилу
Дано число в виде строки S. Требуется каждый элемент этой строки заменить на 1. Если элемент четная цифра, то заменить на большую ...

Есть ли способ в числовую переменную преобразовать строку с математическим выражением т
Приветствую. Хочу задать вопрос. Есть ли способ в числовую переменную преобразовать строку с математическим выражением так, чтобы она...

Задача на числовую последовательность
Добрый день. Подскажите, пожалуйста, решение задачи Условие задачи: Проверить является ли данная числовая последовательность а1,...

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

inter-admin

Эксперт

29715 / 6470 / 2152

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

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

Блог

15.12.2015, 16:53

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

Распечатать числовую последовательность
Распечатать числовую последовательность,которая задается по следующим правилам: -первое число последовательности-натуральное...

Распечатать числовую последовательность
Распечатать числовую последовательность, которая задается по следующим правилам: - первое число последовательности - натуральное число,...

Построить числовую последовательность
ПОМОГИТЕ, ПОЖАЛУЙСТА.

Найти числовую последовательность
Дорогие друзья, помогите найти числовую последовательность, в результате которой получились бы следующие числа: 1; 2; 8; 64...

Продолжите числовую последовательность
Форумчане, вот числовая последовательность из четырех строк чисел. 1 11 21 1211 предлагаю вам найти закономерность и...

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

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

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

Наверх