Пользователь вводит с клавиатуры время в секундах, прошедшее с начала рабочего дня. посчитать, сколько целых часов ему осталось сидеть на работе, если рабочий день – 8 часов.

Var t: integer; begin write('введите время в секундах, прошедшее с начала раб.дня'); readln(t); if (t> 28800) and (t< 32400)  then write('рабочий день закончен около  ', round((t-28800)/60),' минут  назад'); if (t> 32400)  then write('рабочий день закончен около  ', round((t-28800)/3600),' часов  назад'); if (t< 28800) then write('до конца рабочего дня осталось  ', round((28800-t)/3600),'ч.); end.

а где сама таблица? все равно она везде одинаковая, так что держите фрагмент ваш:

 

byck is my dog.

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

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

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

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

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