Question

На свой день рождения Петя купил красивый и вкусный торт, который имел идеально круглую форму. Петя не знал, сколько гостей придет на его день рождения, поэтому вынужден был разработать алгоритм, согласно которому он сможет быстро разрезать торт на N равных частей. Следует учесть, что разрезы торта можно производить как по радиусу, так и по диаметру.

Помогите Пете решить эту задачу, определив наименьшее число разрезов торта по заданному числу гостей.

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

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

РЕШИТЕ, ПОЖАЛУЙСТА, НА ЯЗЫКЕ PASCALABC.NET. ДАЮ 100 БАЛЛОВ

Answer 1

program Main;

var

N: Integer;

f: text;

begin

AssignFile(f, 'input.txt');

Reset(f);

readln(f, N);

closeFile(f);

AssignFile(f, 'output.txt');

Rewrite(f);

if N > 1 then

begin

if N mod 2 = 0 then

writeln(f, N div 2)

else

writeln(f, N);

end

else

writeln(f, '0');

closeFile(f);

end.