Интересная задачка. попробую объяснить как решал. сначала расставим то, что известно однозначно. это то, что Николай встречается со Ольгой потом Толя - поросенок. потом Миша - Томин на этом все. теперь размышляем. Сидоров не Толя и не Саша. а так же не Николай(потому что пришел с Леной) остаются Вася и Миша. однако фамилию Миши мы знаем. следовательно Сидоров - Вася. Сразу же записываем к Васе Лену. теперь с маской. Он не кот(Иванов), не собака(Петров), не поросенок(Толя), не бычок(Света) следовательно он мишка. Толя пришел не с Таней и не со Светой. так же не с Леной(Вася) и не с Ольгой. остается только Катя. Толя не Сидоров(Вася), не Томин (миша), не Иванов(Катя), не Петров(собака) остается Васильев Николай не Сидоов(Вася), не Томин(миша), не Васильев(Толя) и не Петров(пунтк 1) следовательно он Иванов. сразу пишем к нему кота остается одна фамилия - Петров и это Саша так же сразу пишем собаку к нему. из масок остался только бык - Миша с быков встречается Света ну и последняя девушка Таня остается Саше вот и все) но можно последовать совету, который написали раньше и составить бооольшую таблицу. тот вариант действительно нагляднее
Var t, h, mm, ss: integer; ct, ch, cmm, css: string;
begin Write('Введите время в секундах от начала суток -> ');Readln(t); h := t div 3600; t := t mod 3600; mm := t div 60; ss := t mod 60; Str(h, ch); ct := ch + ':'; Str(mm, cmm); if Length(cmm) = 1 then ct := ct + '0' + cmm + ':' else ct := ct + cmm + ':'; Str(ss, css); if Length(css) = 1 then ct := ct + '0' + css else ct := ct + css; Writeln('Указано время ', ct) end.
Тестовое решение: Введите время в секундах от начала суток -> 27429 Указано время 7:37:09
Десятичная запись: 1111100
5 единиц