ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1218. Episode N-th: The Jedi Tournament

Why WA?
Послано Dmitry 'Diman_YES' Kovalioff 27 окт 2002 16:36
It seems to me it is simple. Every count from 1 to 3000 is a sequence
3*3*3*...*2 or 3*3*3*...*3 or 3*3*3*...*4. Just long number
ariphmetics.
But Wrong Answer! Maybe my output is incorrect? Help me! Here is the
text of my program:

program DY_1222;
const
   ML=1000;
type
   TArray = array [1..ML] of integer;
var
   n,i1: longint;
   r: TArray;

{returns number of first non-zero position}
function GetStart(op: TArray): longint;
var
   prm: longint;
begin
   prm:=1;
   while op[prm]=0 do inc(prm);
   GetStart:=prm;
end;

{multiplies current array on 3}
procedure P(var op: TArray);
var
   prm: longint;
   mem: integer;
   buf: TArray;
begin
   mem:=0;
   FillChar(buf,SizeOf(buf),0);
   for prm:=ML downto GetStart(op) do
      begin
         buf[prm]:=(op[prm]*3+mem) mod 10;
         mem:=(op[prm]*3+mem) div 10;
      end;
   buf[prm-1]:=mem;
   op:=buf;
end;

begin
   Readln(n);
   if n>4 then
      begin
         r[ML]:=n-((n-2) div 3)*3;
         if r[ML]=0 then r[ML]:=1;
         for i1:=1 to (n-2) div 3 do P(r);
         for i1:=GetStart(r) to ML do Write(r[i1]);
      end
         else Write(n);
end.
Sorry :) It is to 1222 problem
Послано Dmitry 'Diman_YES' Kovalioff 27 окт 2002 16:38
Sorry :) It is to 1222 problem