0 / 0 / 1
Регистрация: 26.10.2010
Сообщений: 25
1

Контрольная сумма(сумма цифр)

16.01.2011, 01:51. Показов 1550. Ответов 7
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите пожалуйста с такой задачей

Акела постарел, стал слабее, и теперь хромой тигр Шерхан подружился с младшими волками стаи и те часто бегали за ним; Акела не допустил бы до этого, если бы прежняя сила дала ему возможность как следует проявлять свою власть.

С годами стал Акела подзабывать и Закон Джунглей. Нет, он не мог его нарушить, ибо Закон Джунглей уже давно стал частью его инстинктов, кроме того, он точно помнил контрольную сумму Закона.

И вот, молодые оппозиционные волки вместе с Шерханом, решили внести поправки и дополнения в этот Закон, так сказать расширить и дополнить. Можно только догадываться зачем им это понадобилось, и так как к счастью поправки были отклонены самим Хатхи, Джунгли могут спать спокойно.

Но все-таки интересно, как же мог выглядеть основной Закон с поправками и дополнениями оппозиционных волков, если известно, что его контрольная сумма при этом не изменилась.

Входные данные
Во входном файле записано единственное число N (1<=N<=100) – Закон Джунглей.
Выходные данные
В выходной файл надо вывести самое маленькое число M > N, с такой же контрольной суммой (суммой цифр), как и у числа N – Закон Джунглей в редакции оппозиционных волков во главе с Шерханом.

Пример: N=77 тогда M=86

Вот набросок ,но работает он наполовину не знаю как сделать полностью.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program Q_bit_C_Zakon_dgyngleu;
uses crt;
var m,n,c,d,s1,s2,c1,d1:integer;
 
begin
clrscr;
writeln('Zakon Dgyngleu');
readln(n);
c:=n div 10;
d:=n mod 10;
s1:=c+d;
 
   repeat
   m:=m+1;
   c1:=m div 10;
   d1:=m mod 10;
   s2:=c1+d1;
   until (s2=s1)and(m>n);
   writeln(m:3);
 
end.
0
16.01.2011, 01:51
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
16.01.2011, 01:51
Ответы с готовыми решениями:

Сумма всех натуральных чисел от 1 до 1000, сумма цифр которых равна 10
Я сначала хотел написать рекурсивную функцию, которая сводила бы расчёт от 3-охзначных чисел к 2-узначным и 1-нозначным, но запутался...

Сумма цифр искомого числа равна произведению цифр заданного
помогите , пожалуйста, с этим заданием. Нужно составит блок-схему и программу на паскале. Последняя работа осталась и никак не...

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

7
 Аватар для use
180 / 180 / 81
Регистрация: 18.12.2010
Сообщений: 346
16.01.2011, 10:54 2
Цитата Сообщение от Владислав94 Посмотреть сообщение
Вот набросок ,но работает он наполовину не знаю как сделать полностью.
Ты забыл, что результат может быть трехзначным.
Очень у тебя много лишнего.. Зачем? Тебе же не нужны все эти промежуточные значения больше, чем один раз..
Вот, смотри, как-так сделай
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program Q_bit_C_Zakon_dgyngleu;
var
  m,n,s:integer;
 
begin
  writeln('Zakon Dgyngleu');
  readln(n);
  s:= n div 10 + n mod 10;
  m:=n;
  repeat
    m:=m+1;
  until s= m mod 10 + m mod 100 div 10 + m div 100;
  writeln(m:3);
  readln
end.
1
0 / 0 / 1
Регистрация: 26.10.2010
Сообщений: 25
16.01.2011, 12:56  [ТС] 3
Большое спасибо Use.Теперь я знаю как решать такие задачи если появляются трехзначные числа)) В следующий раз учту и уберу всё лишнее) я их присваивал разным переменным что бы следить за ходом задачи где идёт правильно ,а где уже пошла ошибка.))
0
 Аватар для use
180 / 180 / 81
Регистрация: 18.12.2010
Сообщений: 346
16.01.2011, 14:12 4
Цитата Сообщение от Владислав94 Посмотреть сообщение
я их присваивал разным переменным что бы следить за ходом задачи где идёт правильно ,а где уже пошла ошибка
Это очень правильно. Извини за наезд, так и надо делать. Только потом тогда убирай мусор )).

А ты дебаггер ты используешь?
0
0 / 0 / 1
Регистрация: 26.10.2010
Сообщений: 25
16.01.2011, 21:37  [ТС] 5
Только сейчас узнал про дебаггер)) Нет не использую)Я только месяца 2 назад начал учить программирование в школе))В школе ничего не рассказывают ,занимаюсь дома самоучкой с учебниками) Рассказали только цикл for ,теорию по массивам,и операторы if ))На практике мы делали примерно такие задачи как узнать какое из 2 чисел наибольшее или сложить эти 2 числа)) И верх совершенства была задача в массиве узнать наибольшее значение и его прибавить к наименьшему значению)))
0
 Аватар для use
180 / 180 / 81
Регистрация: 18.12.2010
Сообщений: 346
17.01.2011, 03:32 6
Цитата Сообщение от Владислав94 Посмотреть сообщение
олько сейчас узнал про дебаггер)) Нет не использую)Я только месяца 2 назад начал учить программирование в школе))В школе ничего не рассказывают ,занимаюсь дома самоучкой с учебниками)
Про школу это все понятно, можешь не говорить. Учебники - хорошо, конечно. Но я тебе ОЧЕНЬ рекомендую разобраться со ВСЕМИ пунктами, которые есть в меню в среде программирования. Не останавливаяся, пока не закончишь.
И, кстати - какой у тебя компилятор?
0
0 / 0 / 1
Регистрация: 26.10.2010
Сообщений: 25
17.01.2011, 18:10  [ТС] 7
Цитата Сообщение от use Посмотреть сообщение
Я тебе ОЧЕНЬ рекомендую разобраться со ВСЕМИ пунктами, которые есть в меню в среде программирования.
в смысле со всеми пунктами?) я в таком еще не силён)) Это пункты типо File,edit,search,run,compile,debug,tools ну и так дальше. Или что-то не то)))

Цитата Сообщение от use Посмотреть сообщение
И, кстати - какой у тебя компилятор?
Не знаю точно))стандартный в турбо паскале 7.0 Borland Internetional) вызываемый F9
0
 Аватар для use
180 / 180 / 81
Регистрация: 18.12.2010
Сообщений: 346
18.01.2011, 07:12 8
Цитата Сообщение от Владислав94 Посмотреть сообщение
я в таком еще не силён)) Это пункты типо File,edit,search,run,compile,debug,tools ну и так дальше. Или что-то не то
Конечно это. Я совешенно однозначно выразился, мне кажется. В них есть все про отладку, например. И многое другое. В чем ты не силен? Мышкой кликать? ну, потренируй указательный палец.. ))
0
18.01.2011, 07:12
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
18.01.2011, 07:12
Помогаю со студенческими работами здесь

Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме средних цифр
Помогите решить задачу на Паскале. СРОЧНО!!!! Найти все четырехзначные числа,у которых сумма крайних цифр равна сумме средних цифр,а само...

Определить равна ли сумма двух первых цифр четырехзначного числа сумме его последних цифр.
Определить равна ли сумма двух первых цифр четырехзначного числа сумме его последних цифр.

Дано натуральное число n, определить сколько цифр в числе n, чему равна сумма его цифр
Дано натуральное число n, определить сколько цифр в числе n, чему равна сумма его цифр.

Выяснить в каком из них сумма цифр больше, определив функцию для расчёта суммы цифр натурального числа
Помогите плз решить задачу : Даны 2 натуральных числа.Выяснить в каком из них сумма цифр больше,определив функцию для расчёта суммы цифр...

Простые типы данных. Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме соседних цифр, а само число делиться на 6 и 27
Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме соседних цифр, а само число делиться на 6 и 27.


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Пользуясь нейросетью возвращаюсь к вопросу альтернативных приводов поступательного движения.
Hrethgir 14.02.2025
Описание тут https:/ / habr. com/ ru/ articles/ 778118/ . Вопрос ответ You Привет. Скажи, есть-ли вещества, которые могут менять жидкое состояние на желеобразное под воздействием ультразвука? . . .
Ошибка "Another git process seems to be running in this repository"
hw_wired 14.02.2025
При работе с git можно столкнуться с довольно раздражающей ошибкой "Another git process seems to be running in this repository". Эта ситуация возникает, когда система контроля версий пытается. . .
Ошибка "java.lang.NoCl­assDefFou­ndErro­r: javax/xml/bind/JAXBException"
hw_wired 14.02.2025
Как разработчики Java-приложений, мы сталкиваемся с разными ошибками, но одна из них - java. lang. NoClassDefFoundError: javax/ xml/ bind/ JAXBException - стала особенно актуальной после выхода Java 9. . . .
Отличия for-in от for-of в JavaScript
hw_wired 14.02.2025
Когда-то единственным способом перебора элементов массива или свойств объекта был классический цикл for с счетчиком. Да, он отлично справлялся с задачей, но код получался громоздким и не очень. . .
Отличия implementation, api и compile в Gradle
hw_wired 14.02.2025
Управление зависимостями - одна из ключевых задач при разработке современных приложений на Java и Kotlin. Система сборки Gradle предоставляет гибкие и мощные средства для работы с зависимостями,. . .
Что лучше: require или import/export в JavaScript
hw_wired 14.02.2025
Модульность в JavaScript прошла долгий путь эволюции, и сегодня у разработчиков есть два основных способа организации модулей: старый добрый require из системы CommonJS и современные import/ export из. . .
Ошибка "Uncaught SyntaxError: Cannot use import statement outside a module"
hw_wired 14.02.2025
Думаю, многие разработчики сталкивались с ошибкой "Uncaught SyntaxError: Cannot use import statement outside a module" при попытке использовать современный синтаксис импорта в JavaScript. Эта. . .
Ошибка Docker "Got permission denied while trying to connect to the Docker daemon socket at"
hw_wired 14.02.2025
Разработка с использованием Docker может иногда преподносить неожиданные сюрпризы, и одним из самых распространенных камней преткновения становится ошибка с отказом в доступе к демону Docker. . . .
Ошибка "No 'Access-Control-Allow-Origin' header is present on the requested resource"
hw_wired 14.02.2025
При разработке современных веб-приложений нередко сталкиваешься с ошибкой "No 'Access-Control-Allow-Origin' header is present on the requested resource". Эта проблема возникает из-за политики. . .
Как закрыть порт в Linux
hw_wired 14.02.2025
Управление сетевыми портами в Linux - непростая, но важная задача для обеспечения безопасности системы. Каждый открытый порт - это потенциальная уязвимость, через которую злоумышленики могут. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru