оптимизация (сокрашение программы)

[kostan3]

var
  n, d: word;
begin
  reset (input, 'input.txt');
  assign (output, 'output.txt');

  read(n);
  while not eof do begin
    read(d);
    if n > 8 then begin
        Write(ord(d=1)*2027025324+ord(d=6)*6081);
        Halt
    end
  end;
    write(ord(n=3)+(ord(n in [6,8])*n));
end.

Размер кода: 208
по этой задаче!!!

[BDA]

Кросспостить нехорошо.
Вы уверены, что из Паскаля можно выжать больше?

[kostan3]

наверно!!!!!!!!!!!

[Poma][a]

Вы уверены, что из Паскаля можно выжать больше?

Я уверен

var
  n, d: word;
begin
  reset (input, 'input.txt');
  assign (output, 'output.txt');

  read(n);
  repeat
    read(d);
    if n > 8 then begin
        Write(ord(d=1)*2027025324+ord(d=6)*6081);
        Halt
    end
  until eof;
    write(ord(n=3)+(ord(n in [6,8])*n));
end.

201

[MisterDie]

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

Вы уверены, что из Паскаля можно выжать больше?

begin
end.

Кто короче?

[Stilet]

MisterDie

Здесь кода нет.

reset (input, 'input.txt');

Любопытная строчка... Это из Паскаля.АБЦ?

[Poma][a]

Любопытная строчка... Это из Паскаля.АБЦ?

Это дельфи тыц

[Stilet]

Это дельфи

Это не Делфи. Это идиотозм на acmp.ru. В твоей же ссылке это и написано.
Впрочем если это допускается при проверке то пусть будет так. В реале все равно автор прибежит покупать решение к специалисту с таким подходом.

[Poma][a]

Решение на паскале на acmp компилируется на Делфи => Делфи это пропускает..

[Stilet]

Делфи это пропускает

Любопытно. Видимо разработчики Делфи учли что в будущем появится acmp.ru.
Молодцы )