Question

Помогите решить задачу!Нужно написать программу!
Имеется N монет, не различимых на первый взгляд. Однако, одна из них фальшивая. Фальшивая монета чуть тяжелее, чем настоящая, но во всем остальном полностью идентична настоящим. Кроме того, есть чашечные весы без гирь и шкалы (по таким весам, можно определить, какая чаша тяжелее или легче, но нельзя сказать на сколько). Найти минимальное количество взвешиваний, за которое можно гарантированно определить фальшивку.

Входные данные

Входной файл INPUT.TXT содержит одно натуральное число N – количество монет (2<=N<=109).

Выходные данные

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

Answer 1

Pascal:
Var 
 n,a:longint;
beegin
 assign(input,'input.txt');
 reset(input);
 assign(output,'output.txt');
 rewrite(output);
 Readln(n);
 if odd(n) then writeln(N div 2+1) else writeln(n div 2);
end.
Надеюсь правильно . Ж)