Адже, якщо умова при якій цикл виконується буде не дійсною, то команди тіла циклу не будуть виконуватись!
Спасибо
Ответ дал: Гость
uses crt; var a[1..100] of integer; i,n,count: integer; begincount: =0; read(n); for i: =1 to n do read(a[i]); if a[i]> 0 then inc(count); write(count); end.
Ответ дал: Гость
разделим монеты на кучки 1002 1002 и одна монета
1-е взвешивание сравниваем 1002 и 1002
если они одинаковые то они настоящие и значит осталось сравнить одну монету с какой-нибудь из этих кучек и выяснить тяжелее она или легче
если одна из куч тяжелее то ее делим пополам и снова взвешиваем
если половинки оказались одинаковые, значит они настоящие и фальшивая монета легче настоящей, а если разные то фальшивая монета тяжелее настоящей
Популярные вопросы