Интересные интересности и задачи/головоломки

[type_Oleg]

Сообщение от Poma][a

... И переменные становятся глобальными, и они, конечно, обращаются в 0...

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

[Аватар]

Ромаха, как-то недавно в одной из задачек не инициализация глобальной плохо влияла на результат. К сожалению не помню в какой теме. Так что и так бывает

[Poma][a]

По-моему задача как раз моя была.. На acmp код сокращали..
Правда давно это было

[Poma][a]

Вспомнилось..
Попалась задача.. Решается просто, но потом я голову поломал..
Вам дается числа N и S. Нужно найти наименьше и наибольшее N-значное число, сумму цифр в котором ровна S.

Было бы прекрасно получить код, потому что искать контр. пример к нереализованному алгоритму не очень хочется.. А погонять по тестам - пожалста. Ограничения : время 1 сек. Память 256мб. Вот.

[BDA]

var
  n, s, i: integer;
  min, max: string;
begin
  readln(n, s);
  if (s - 1) div 9 + 1 > n then
  begin
    writeln('error');
    exit;
  end;
  max := '';
  while s > 9 do
  begin
    max := max + '9';
    dec(s, 9);
  end;
  min := max;
  if s > 0 then
  begin
    max := max + chr(s + ord('0'));
    min := chr(s + ord('0')) + min;
  end;
  for i := length(max) to n - 1 do
    max := max + '0';
  if length(min) < n then
  begin
    min[1] := chr(ord(min[1]) - 1);
    for i := length(min) to n - 2 do
        min := '0' + min;
    min := '1' + min;
  end;
  writeln(min, ' ', max);
end.

Мог что-нибудь прошляпить.

[Poma][a]

Мог что-нибудь прошляпить.

К сожалению, да..
У меня был такой же косяк..
WA#9

[Аватар]

а так

  if (s<1) or (n<1) then begin writeln('error'); Exit; end;

  max:=''; c:=s;
  for i:=1 to n do
    if c>=9 then begin max:=max+'9'; Dec(c,9); end
    else begin max:=max+IntToStr(c); c:=0; end;
  if c>0 then begin writeln('error'); Exit; end;

  min:=''; c:=s;
  for i:=1 to n do
    if c>9 then begin min:='9'+min; Dec(c,9); end
    else if (c>1) and (i<n) then begin min:=IntToStr(c-1)+min; c:=1; end
    else if i<n then min:='0'+min
    else min:=IntToStr(c)+min;

  writeln(min, ' ', max);

[Poma][a]

Не запускал.. Но у Вас тот же косяк

[BDA]

А на каком сайте можно погонять решение?

[Poma][a]

А нигде нельзя..
Щас попробую поискать похожее..
Вот, полное условие

Нашел : тыц