Задача с ветвлением и файлами (Pascal) - разрезать круглый торт на N равных частей

[LuLu53]

Задача легкая, вроде бы решил. Электронная система проверок делает 10 тестов и на 10 дает ошибку =( не пойму что не так. Даже условие лишнее добавил (N<=1000).
Задача:
На свой день рождения Петя купил красивый и вкусный торт, который имел идеально круглую форму. Петя не знал, сколько гостей придет на его день рождения, поэтому вынужден был разработать алгоритм, согласно которому он сможет быстро разрезать торт на N равных частей. Следует учесть, что разрезы торта можно производить как по радиусу, так и по диаметру. Помогите Пете решить эту задачу, определив наименьшее число разрезов торта по заданному числу гостей.

Входные данные
Входной файл INPUT.TXT содержит натуральное число N – число гостей, включая самого виновника торжества (N <= 1000).

Выходные данные
В выходной файл OUTPUT.TXT выведите минимально возможное число разрезов торта.

program Z_1;
Var n,k:integer;
begin
     assign(input,'input.txt');
     reset(input);
     assign(output,'output.txt');
     rewrite(output);
     read(n);
     if (n>0) and (n<>1) and (n<=1000) then
     begin
     if (n mod 2 = 0) then
     k:=n div 2
     else
     k:=n;
     end;
     write(k);
end.

[Stilet]

Логика вроде правильная...
А как выглядит ошибка, которую генерирует твоя проверочная система?

[LuLu53]

Пишет что ответ не правильный(
именно на 10 тесте, не представляю что там за значение они могли использовать.

[gaw4]

может случай когда никто не пришел N=1 (N <= 1000).

[LuLu53]

 if (n>0) and (n<>1) and (n<=1000)

если n=1 то он выведет ноль т.к. не надо резать. Или не?

[gaw4]

все верно
я имел ввиду,что при вводе 0 тоже выдает 0 , равно как и при вводе 1001

[Bessяка]

Дело в том, что после 8 кусков кол-во порезов торта на четное кол-во людей не будет равно "n div 2", а будет также равно "k:=n". По логике на равные куски с четным кол-вом пореза торта, после 8, можно делить только степени 2 (16,32...). Предположим что на проверку взяли число 10, ваша программа выдаст 5, но ответ не правильны, ведь куски будут разного размера.

[Serge_Bliznykov]

Сообщение от Bessяка

Дело в том, что после 8 кусков кол-во порезов торта на четное кол-во людей не будет равно "n div 2", а будет также равно "k:=n".

ничего не понял.

во-первых, зачем Вы подняли тему 2012 года?

а во-вторых, зачем Вы ищете сложности и проблемы там, где их нет?
торт можно резать только по диаметру или по радиусу. Куски все должны быть одинаковые.
всё.

следовательно, решение:

Если N==1, то 0 разрезов
Если N четное, то ответ N/2 разрезов по диаметру
Если N нечетное — N разрезов по радиусу
всё.

Вам картинку нарисовать или сами разберётесь?

p.s. для решения задачи можно использовать такой код (http://acmu.ru/asp/champ/index.asp?m...nload&id=429):

var
 n : integer;
begin
 assign(input, 'input.txt'); reset(input);
 assign(output, 'output.txt'); rewrite(output);
 read(n);
 if n=1 then write(0) else
 if odd(n) then write(n) else write(n div 2);
 close(output)
end.