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

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

Why my program wrong anser
Послано Oleg 21 окт 2002 09:27
var n:longint;

function sum(i:longint):longint;
begin
 if i<2 then sum:=i else
 begin
  if (i mod 2)=0
   then sum:=sum(i div 2)
   else sum:=sum(i div 2)+sum(1+(i div 2));
 end;
end;

begin
 repeat
  read(n);
  if n>0 then writeln(sum(n));
 until n=0;
end.