В длинном числе изменить только одну цифру так, чтобы новое число делилось на 9

@SeregaMs · Регистрация: 30.11.2017

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

Задано натуральное число, содержащее не более 200 цифр. В этом числе требуется изменить только одну цифру так, чтобы новое число делилось на 9 (даже если исходное число делится на 9). Количество цифр числа не должно меняться. Уменьшить цифру разрешается только в том случае, если увеличением нельзя получить новое число.
Формат входных данных:

Задано одно натуральное число, содержащее не более 200 цифр.

Формат выходных данных:

В первой строке напечатать 1, если получено новое число увеличением какой либо цифры, во второй строке наименьшее возможное новое чис-ло. В противном случае в первой строке печатаем −1, во второй строке — наибольшее число, полученное из исходного уменьшением одной цифры. Если и уменьшением только одной цифры нельзя получить чис-ло, делящееся нацело на 9, то вывести 0.

@GreenRadiation · 30.11.2017, 16:09

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Var 
 s: string;//Читать будет проще
 sum: integer;
 min,max,nmin,nmax: integer;
 j,k: integer;//Счётчик
 
begin
 read(s);
 sum := 0;
 min := 10;
 max := -1;
 for j := 1 to Length(s) do
 begin
  k := StrToInt(s[j]);
  sum := sum + k;
  if(k >= max) then
  begin
   max := k;//Находим максимум
   nmax := j;//А также его позицию
  end;
  //Также минимум
  if(k < min) then
  begin
   min := k;
   nmin := j;
  end;
 end;
 k := sum mod 9;
 if k = 0 then k := 9;//Теперь k - то, на сколько надо уменьшить цифру
 j := 9 - k;
 if j = 0 then j := 9;//А j - на сколько увеличить
 if j + min < 10 then//Смотрим,не выходит ли за пределы разряда
 begin
  j := j + min;
  writeln('1');
  s[nmin] := Chr(j + 48);
  writeln(s);
 end
 else//Если придётся уменьшать
 begin
  if(max - k >= 0) then
  begin
   k := max - k;
   writeln('-1');
   s[nmax] := Chr(k + 48);
   writeln(s);
  end
  else
  begin
   writeln('0');
  end;
 end;
end.

Вот такой вот код для решения задачи с комментариями.

@SeregaMs · 01.12.2017, 06:03 **[ТС]**

Спасибо большое за решение
Если не сложно могли бы посмотреть другие мои темы

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа 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 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

@SeregaMs 0 / 0 / 0 Регистрация: 30.11.2017 Сообщений: 6

	В длинном числе изменить только одну цифру так, чтобы новое число делилось на 9 30.11.2017, 11:20. Показов 4082. Ответов 2 Метки нет (Все метки) Задано натуральное число, содержащее не более 200 цифр. В этом числе требуется изменить только одну цифру так, чтобы новое число делилось на 9 (даже если исходное число делится на 9). Количество цифр числа не должно меняться. Уменьшить цифру разрешается только в том случае, если увеличением нельзя получить новое число. Формат входных данных: Задано одно натуральное число, содержащее не более 200 цифр. Формат выходных данных: В первой строке напечатать 1, если получено новое число увеличением какой либо цифры, во второй строке наименьшее возможное новое чис-ло. В противном случае в первой строке печатаем −1, во второй строке — наибольшее число, полученное из исходного уменьшением одной цифры. Если и уменьшением только одной цифры нельзя получить чис-ло, делящееся нацело на 9, то вывести 0. 0

@SeregaMs 0 / 0 / 0 Регистрация: 30.11.2017 Сообщений: 6
	01.12.2017, 06:03 [ТС]
	Спасибо большое за решение Если не сложно могли бы посмотреть другие мои темы 0

В длинном числе изменить только одну цифру так, чтобы новое число делилось на 9

Решение