Определить функцию, позволяющую распознавать наличие вещественных корней в квадратном уравнение. делфи или паскаль

// pascalabc.net 3.3, сборка 1555 от 21.10.2017 // внимание! если программа не работает, обновите версию! begin   var hasreal: (real,real,real)-> boolean: =(a,b,c)-> b*b-4*a*c> =0;   writeln(hasreal(5.5,-3,4.2));   writeln(hasreal(1,-2,-6)) end. результат false true первая строка - определение функции hasreal, остальные две - примеры обращения к ней.

для начала переведем 100мбит в байты.

100мбитс=100*1024*1024/8=13107200 байт

  13107200 байт*1с =  13107200 байт.

ответ:   13107200 байт.

разделим монеты на кучки 1002 1002 и одна монета

1-е взвешивание сравниваем 1002 и 1002

если они одинаковые то они настоящие и значит осталось сравнить одну монету с какой-нибудь из этих кучек и выяснить тяжелее она или легче

если одна из куч тяжелее то ее делим пополам и снова взвешиваем

если половинки оказались одинаковые, значит они настоящие и фальшивая монета легче настоящей, а если разные то фальшивая монета тяжелее настоящей