S:=0; k:=0;while k<3 doBegink:=k+1;S:=S+k;End:
s = 0
k = 0
k = 0+1 = 1
s = 0 + 1 = 1
k = 1+1 = 2
s = 1+2 = 3
Считаем всего 2 раза так как k<3, а не k<=3</p>
мне бы не помешало запомнить ваши контакты))