Что не так в моём решении? Сто раз уже проверил...

edo в категроии Информатика, вопрос открыт 24.03.2017 в 21:25

Вот задача:
Даны целые числа m, n, (0 А вот сам код:

var
i, j: integer;
m, n,k: real;

begin
readln(m, n);
m:=m*30;//Преобразую в градусы
n:=n*6;//Преобразую в градусы
while (m - n <> 90) or (m - n <> 270) do begin
if (m - n = 90) or (m - n = 270) then break;//Лишняя проверка
m := m + (0.5);
n := n + 6;
if n = 360 then begin //если 60 минут (360 градусов) то минуты = 0, а час +1(+30 градусов)
n:=0;
m:= m+30;
k:=k+1;//Кол-во минут
end;
end;
write(k);

end.