//pascal abc.net v3.1 сборка 1172 var n,c,s: integer; begin read(n); while n< > 0 do begin c: =n mod 10; s: =s+c; n: =n div 10; end; writeln(s); end. пример ввода: 123 пример вывода: 6
Спасибо
Ответ дал: Гость
caps lock,shift
Ответ дал: Гость
разделим монеты на кучки 1002 1002 и одна монета
1-е взвешивание сравниваем 1002 и 1002
если они одинаковые то они настоящие и значит осталось сравнить одну монету с какой-нибудь из этих кучек и выяснить тяжелее она или легче
если одна из куч тяжелее то ее делим пополам и снова взвешиваем
если половинки оказались одинаковые, значит они настоящие и фальшивая монета легче настоящей, а если разные то фальшивая монета тяжелее настоящей
Популярные вопросы