<span>C:/библиотека /повесть /летопись </span>
var a:integer;
begin
writeln('Введите год:');
read(a);
if (a>=2001) and (a<=2100) then begin
writeln('Относится');
end
else
writeln('Не относится');
end.
Берем наши 5 монет и делим их на 3 кучки - 2 монеты,2 монеты и 1 монета. Далее взвешиваем между собой 2 кучки по 2 монеты. Если эти кучки равны - то монета в третьей кучке, в которой находится одна монета, которая и есть золотая. Если же кучки не равны, то наша золотая монета находится в более тяжелой кучке,значит нам остается более тяжелую кучку взвесить по одной монете, которая будет тяжелее - золотая.
блок-схема данного решения в приложении
I=7.5 кбайт
К=7680
N-?
___________
N=2i
I=K*i
i=I\K
i=61440\7680=8