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

@Владислав94 · Регистрация: 26.10.2010

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

Помогите пожалуйста с такой задачей

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

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

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

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

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

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

Вот набросок ,но работает он наполовину не знаю как сделать полностью.

Pascal

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.

@use · 16.01.2011, 10:54

Сообщение от Владислав94

Вот набросок ,но работает он наполовину не знаю как сделать полностью.

Ты забыл, что результат может быть трехзначным.
Очень у тебя много лишнего.. Зачем? Тебе же не нужны все эти промежуточные значения больше, чем один раз..
Вот, смотри, как-так сделай

Pascal

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.

@Владислав94 · 16.01.2011, 12:56 **[ТС]**

Большое спасибо Use.Теперь я знаю как решать такие задачи если появляются трехзначные числа)) В следующий раз учту и уберу всё лишнее) я их присваивал разным переменным что бы следить за ходом задачи где идёт правильно ,а где уже пошла ошибка.))

@use · 16.01.2011, 14:12

Сообщение от Владислав94

я их присваивал разным переменным что бы следить за ходом задачи где идёт правильно ,а где уже пошла ошибка

Это очень правильно. Извини за наезд, так и надо делать. Только потом тогда убирай мусор )).

А ты дебаггер ты используешь?

@Владислав94 · 16.01.2011, 21:37 **[ТС]**

Только сейчас узнал про дебаггер)) Нет не использую)Я только месяца 2 назад начал учить программирование в школе))В школе ничего не рассказывают ,занимаюсь дома самоучкой с учебниками) Рассказали только цикл for ,теорию по массивам,и операторы if ))На практике мы делали примерно такие задачи как узнать какое из 2 чисел наибольшее или сложить эти 2 числа)) И верх совершенства была задача в массиве узнать наибольшее значение и его прибавить к наименьшему значению)))

@use · 17.01.2011, 03:32

Сообщение от Владислав94

олько сейчас узнал про дебаггер)) Нет не использую)Я только месяца 2 назад начал учить программирование в школе))В школе ничего не рассказывают ,занимаюсь дома самоучкой с учебниками)

Про школу это все понятно, можешь не говорить. Учебники - хорошо, конечно. Но я тебе ОЧЕНЬ рекомендую разобраться со ВСЕМИ пунктами, которые есть в меню в среде программирования. Не останавливаяся, пока не закончишь.
И, кстати - какой у тебя компилятор?

@Владислав94 · 17.01.2011, 18:10 **[ТС]**

Сообщение от use

Я тебе ОЧЕНЬ рекомендую разобраться со ВСЕМИ пунктами, которые есть в меню в среде программирования.

в смысле со всеми пунктами?) я в таком еще не силён)) Это пункты типо File,edit,search,run,compile,debug,tools ну и так дальше. Или что-то не то)))

Сообщение от use

И, кстати - какой у тебя компилятор?

Не знаю точно))стандартный в турбо паскале 7.0 Borland Internetional) вызываемый F9

@use · 18.01.2011, 07:12

Сообщение от Владислав94

я в таком еще не силён)) Это пункты типо File,edit,search,run,compile,debug,tools ну и так дальше. Или что-то не то

Конечно это. Я совешенно однозначно выразился, мне кажется. В них есть все про отладку, например. И многое другое. В чем ты не силен? Мышкой кликать? ну, потренируй указательный палец.. ))

@Владислав94 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

@Владислав94 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

@Владислав94 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

Опции темы