Var s,k: integer begin s:=1; for k:=1 to 30 do s:=(-1) * s; writeln(s) end

Question

Var s,k: integer begin s:=1; for k:=1 to 30 do s:=(-1) * s; writeln(s) end

Answer 1

Ответ:

думаю = 1

Объяснение:

когда к = 1, s = -1 (т.е = -1*1)

когда к = 2, s = 1 (т.е = -1*-1)

когда к = 3, s = -1

когда к = 4, s = 1

когда к = 5, s = -1

когда к = 6, s = 1

и т.д

к = 30 - четное число, поэтому ответ положительный 1

Comments

100%

---

а подробнее можно?