Question

помогите плиз с задачей

Answer 1

var n,m,p,q,r: integer;
    h: real;
begin
  write('число часов m и число минут n через пробел: ');
  readln(m,n);
  m:=m mod 12;
  p:=m; r:=n;
  h:=m*5+n/12;
// когда стрелки совпадут
  q:=0;
  repeat
    n:=(n+1) mod 60;
    h:=h+1/12;
    m:=round(h) mod 60;
    inc(q);
  until n=m;  
  if q>64 then q:=0;
  writeln('стрелки совпадут через ',q,' мин.');
// когда стрелки станут перпендикулярны  
  h:=p*5+r/12;
  n:=r;  p:=0;
  repeat
    n:=(n+1) mod 60;
    h:=h+1/12;
    m:=round(h) mod 60;
    inc(p);
  until abs(m-n)=15;
  if p>30 then p:=0;
  writeln('стрелки перпендикулярны через ',p,' мин.');
end.

число часов m и число минут n через пробел: 11 14
стрелки совпадут через 46 мин.
стрелки перпендикулярны через 30 мин.

число часов m и число минут n через пробел: 3 15
стрелки совпадут через 1 мин.
стрелки перпендикулярны через 18 мин.