Паскаль цикл for

[gennadii]

Здравствуйте ещё раз! Я никак не врублюсь! Объясните мне "тупню" как здесь получается 128???

s:=0; n:=5;
  for i:=2 to n do s:=s+100 div i

я понимаю так: 100 делим на 5 = 20 (деление нацело прошло), 20+20+20+20=80, как 128??? где я конкретно туплю?? Спасибо!

[gennadii]

Или вот так: 100/2 = 50, 100/3=30 (тут то 33)!!!!, 100/4=25, 100/5=20, всё равно 125, где я торможу

[phomm]

шаги цикла   2    3     4    5
100 div i    50   33   25   20 
s            50   83  108  128

[Serge_Bliznykov]

Или вот так: 100/2 = 50, 100/3=30, 100/4=25, 100/5=20, всё равно 125, где я торможу

у Вас же в руках программа. Или пройди в режиме отладки, либо заставьте её выдавать промежуточные итоги.
вот так:

var i, s, n : integer;
begin
s:=0; n:=5;
WriteLn;
Write(' s = 0 '); 
  for i:=2 to n do begin
    Write(' + ',100 div i );
    s:=s+100 div i
  end;
Write(' = ', s);
Readln
end.

результат:

 s = 0  + 50 + 33 + 25 + 20 = 128

phomm, +1. я не успел, Вы быстрее!

[gennadii]

Точно, там же 33, а я ступил, спасибо огромнейшее вам!