Bвести с клавиатуры 2 целых числа: 0 <=H < 12, 0 <= M < 60, указывающие момент времени H часов M минут. Определить и вывести на экран наименьшее число полных минут, которое должно пройти до того момента, когда часовая и минутная стрелки на циферблате совпадут.
Обьясните, пожалуста, решение этой задачи.
Решение:
uses
crt;
var
h,m,s,t:integer;
begin
clrscr;
textcolor(green);
Writeln('Vvedite chasi i minuti:');
readln(h,m);
t:=5*h-m+(h-1) div 2;
s:=((t div abs(t))+1) div 2;
t:=t+65*(1-s);
writeln('Strelki chasov sovpadut cherez: ',t, ' minut');
readln;
end.