Var a: array [1..8,1..8] of integer; j,k,n: integer; begin randomize; for j: =1 to 8 do begin for k: =1 to 8 do begin a[j,k]: =random(9)+1; write (a[j,k]: 2); end; writeln; end; repeat write ('n = '); readln (n); until n in [1..8]; for j: =1 to 8 do write (a[n,j]: 3); writeln; readln; end.
Спасибо
Ответ дал: Гость
разделим монеты на кучки 1002 1002 и одна монета
1-е взвешивание сравниваем 1002 и 1002
если они одинаковые то они настоящие и значит осталось сравнить одну монету с какой-нибудь из этих кучек и выяснить тяжелее она или легче
если одна из куч тяжелее то ее делим пополам и снова взвешиваем
если половинки оказались одинаковые, значит они настоящие и фальшивая монета легче настоящей, а если разные то фальшивая монета тяжелее настоящей
Популярные вопросы