Более подробно: 20:02 - если не учитывать, что в часе 60 минут, то предыдущее "счастливое" время - 19:91, но это не подходит, т.к. часы не могут показывать столько, дальше аналогично: 18:81 - не подходит; 17:71 - не подходит; 16:61 - не подходит; 15:51 - подходит, значит, это - предыдущее "счастливое" время. Чтобы найти, сколько времени с 15:51 до 20:02, то есть найти, насколько 20:02 больше, чем 15:51, нужно из большего отнять меньшее: 20:02-15:51=4:11, то есть 4 часа 11 минут. ответ: 4 ч 11 мин.
ответ: 4 ч 11 мин.
Более подробно: 20:02 - если не учитывать, что в часе 60 минут, то предыдущее "счастливое" время - 19:91, но это не подходит, т.к. часы не могут показывать столько, дальше аналогично:
18:81 - не подходит;
17:71 - не подходит;
16:61 - не подходит;
15:51 - подходит, значит, это - предыдущее "счастливое" время.
Чтобы найти, сколько времени с 15:51 до 20:02, то есть найти, насколько 20:02 больше, чем 15:51, нужно из большего отнять меньшее: 20:02-15:51=4:11, то есть 4 часа 11 минут.
ответ: 4 ч 11 мин.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
a, b, кол, сч: ЦЕЛ;
массив: ДОСТУП К РЯД ИЗ ЦЕЛ;
ср_г: ВЕЩ;
УКАЗ
кол := Приём.Число();
Вывод.Цепь("^");
a := Приём.Число();
Вывод.Цепь(" ");
b := Приём.Число();
Вывод.Цепь("^");
СОЗДАТЬ(массив, кол);
ОТ сч := 0 ДО кол - 1 ВЫП
массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * (b - a + 1))) + a
КОН;
ср_г := 1;
ОТ сч := 0 ДО кол - 1 ВЫП
ср_г := ср_г * массив[сч]
КОН;
ср_г := Матем.степВВ(ср_г, 1 / кол)
Вывод.ЧВещ("^%g", ср_г, 0, 0, 0)
КОН Задание.