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

Обсуждение задачи 1079. Максимум

Why "Wong answer"?
Послано Adam Alz Rutkowski 25 янв 2003 21:44
can anyone tell me why i got wa?

program Maximum;
var
 t:array[0..100000] of longint;
 x,max:longint;
 b:byte;
begin
 t[0]:=0; t[1]:=1;
 for x:=2 to 100000 do
  begin
   b:=(b+1) mod 2;
   if b=0 then t[x]:=t[x div 2]+t[(x div 2) +1] else t[x]:=t[x div 2];
  end;
 for x:=0 to 100000 do if t[x]>max then max:=t[x] else t[x]:=max;
 readln(x);
 while x>0 do
  begin
   writeln(t[x]);
   readln(x);
  end;
end.