Считаем, сколько пройдёт минут после 2N+1 урока: (2N + 1)*45 - число минут собственно на учёбу N * 15 - число минут на длинные перерывы N * 5 - число минут на короткие перерывы
Считаем, сколько пройдёт минут после 2N уроков: 2N*45 - число минут собственно на учёбу (N - 1) * 15 - число минут на длинные перерывы N * 5 - число минут на короткие перерывы
В общем случае, после M уроков (сравниваем ответы): M*45 - число минут собственно на учёбу (M div 2 - (M+1) mod 2) * 15 - число минут на длинные перерывы (M div 2) * 5 - число минут на короткие перерывы
Т.о., время T (в минутах) можно найти по формуле: T = M*45 + (M div 2 - (M+1) mod 2) * 15 + (M div 2) * 5
Если нужно привести к формату H:M, то H = 9 + (T div 60) M = T mod 60
Для контроля массив заполняется случайными числами. Если заполнять автоматически не надо, то выделенные строки можно исключить, размерность массива изменить и вводить вручную (или считывать из файла) DIM A(5, 5) RANDOMIZE TIMER FOR I = 1 TO 5 FOR J = 1 TO 5 A(I, J) = RND(1) * 10 - RND(1)*5 PRINT A(I, J); " "; IF I = 1 AND J = 1 THEN MAX = A(I, J) MIN = A(I, J) END IF IF MIN > A(I, J) THEN MIN = A(I, J) IF MAX < A(I, J) THEN MAX = A(I, J) NEXT J PRINT NEXT I PRINT "MAX="; MAX, "MIN="; MIN L = INT(MAX) - ABS(FIX(MIN)) PRINT "L="; L
(2N + 1)*45 - число минут собственно на учёбу
N * 15 - число минут на длинные перерывы
N * 5 - число минут на короткие перерывы
Считаем, сколько пройдёт минут после 2N уроков:
2N*45 - число минут собственно на учёбу
(N - 1) * 15 - число минут на длинные перерывы
N * 5 - число минут на короткие перерывы
В общем случае, после M уроков (сравниваем ответы):
M*45 - число минут собственно на учёбу
(M div 2 - (M+1) mod 2) * 15 - число минут на длинные перерывы
(M div 2) * 5 - число минут на короткие перерывы
Т.о., время T (в минутах) можно найти по формуле:
T = M*45 + (M div 2 - (M+1) mod 2) * 15 + (M div 2) * 5
Если нужно привести к формату H:M, то
H = 9 + (T div 60)
M = T mod 60
DIM A(5, 5)
RANDOMIZE TIMER
FOR I = 1 TO 5
FOR J = 1 TO 5
A(I, J) = RND(1) * 10 - RND(1)*5
PRINT A(I, J); " ";
IF I = 1 AND J = 1 THEN
MAX = A(I, J)
MIN = A(I, J)
END IF
IF MIN > A(I, J) THEN MIN = A(I, J)
IF MAX < A(I, J) THEN MAX = A(I, J)
NEXT J
PRINT
NEXT I
PRINT "MAX="; MAX, "MIN="; MIN
L = INT(MAX) - ABS(FIX(MIN))
PRINT "L="; L