Помогите решить задачу на Basic. В ответах: 1, а у меня получается 2.
DIM Mas(7) AS INTEGER
Mas(1) = 10: Mas(2) = 5
Mas(3) = 7: Mas(4) = 3
Mas(5) = 9: Mas(6) = 2
Mas(7) = 4
k = 0: m = 2
FOR i = 2 TO 7
IF Mas(i) - Mas(i - 1) > m THEN
k = k + 1
END IF
NEXT i
PRINT k
DIM Mas(7) AS INTEGER
Mas(1) = 10: Mas(2) = 5
Mas(3) = 7: Mas(4) = 3
Mas(5) = 9: Mas(6) = 2
Mas(7) = 4
k = 0: m = 2
FOR i = 2 TO 7
IF Mas(i) - Mas(i - 1) > m THEN
k = k + 1
END IF
NEXT i
PRINT k
More Questions From This User See All
Answers & Comments
Verified answer
Проанализируем работу цикла:i=2
Mas(i) - Mas(i-1) > m ⇒ Mas(2) - Mas(1) > m ⇒ 5-10 > 2 ⇒ -5 > 2 ⇒ нет
i=3
Mas(i) - Mas(i-1) > m ⇒ Mas(3) - Mas(2) > m ⇒ 7-5 > 2 ⇒ 2 > 2 ⇒ нет
i=4
Mas(i) - Mas(i-1) > m ⇒ Mas(4) - Mas(3) > m ⇒ 3-7 > 2 ⇒ -4 > 2 ⇒ нет
i=5
Mas(i) - Mas(i-1) > m ⇒ Mas(5) - Mas(4) > m ⇒ 9-3 > 2 ⇒ 6 > 2 ⇒ да; k=1
i=6
Mas(i) - Mas(i-1) > m ⇒ Mas(6) - Mas(5) > m ⇒ 2-9 > 2 ⇒ -7 > 2 ⇒ нет
i=7
Mas(i) - Mas(i-1) > m ⇒ Mas(7) - Mas(6) > m ⇒ 4-2 > 2 ⇒ 2 > 2 ⇒ нет
Ответ: k=1