Question

Определите значение переменной s после выполнения программы: var s,i:integer; begin s:=0; i:=10; while i>5 do begin i:=i-1; s:=s+i;end; writeln(s); end.

Answer 1

Ручной расчет по программе:
s = 0; i = 10
i>5  ⇒ 10>5 ⇒ true; i = i-1 = 10-1 = 9; s = s+i = 0+9 = 9
i>5  ⇒ 9>5 ⇒ true; i = i-1 = 9-1 = 8; s = s+i = 9+8 = 17
i>5  ⇒ 8>5 ⇒ true; i = i-1 = 8-1 = 7; s = s+i = 17+7 = 24
i>5  ⇒ 7>5 ⇒ true; i = i-1 = 7-1 = 6; s = s+i = 24+6 = 30
i>5  ⇒ 6>5 ⇒ true; i = i-1 = 6-1 = 5; s = s+i = 30+5 = 35
i>5  ⇒ 5>5 ⇒ false
Ответ: s = 35