Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
пяти красок - не решаема
только вот доказательств не знаю
var
x: real;
begin
readln(x);
writeln(round(x));
end.
за два можно. ложим по 3 монеты. если ровно - то фальшивая среди двух оставшихся, которую легко найти. если неровно - то берём 2 монеты из лёгкой чашки и взвешиваем. если ровно - то оставшаяся и есть фальшивая, если неровно - то фальшивая наверху.
var sum,n,i: integer;
readln(n);
sum: =0;
for i: =1 to n do
sum: =sum+i;
writeln(sum);
readln;
Популярные вопросы