.
.
to, 1, downto 1.
, . . , , .
, , .
Program summa2; { }
var i, sum: integer;
Begin
sum:= 0;
i:= 1; { }
While i <= 100 do { ! }
Begin
sum:= sum + i; { }
inc (i); { i:= i+1 }
End; { }
Write ('S = ',sum);
Readln;
End.
, :
While i <= 100 do
:
100
. :
while do
( ):
<= 100
Sum:= Sum +i
i:= i+1
: . 쳺 : 100 Sum 1.
, ( ) . , , , . , , , . , , .
, 100 , . :
n ;
n ;
n .
, , , ..
|
|
. 0 , . 1, , 1<=100, , Sum:= Sum +1, Sum = 1, 1, 2. 2<=100, , Sum:= Sum +2, Sum = 3, 1, 3 .. 99 Sum 4950 100, 100<=100, , Sum:= Sum +100, Sum = 5050, 1, 101. 101<=100, . , : . .
<= 100 | S | ||
+1 | |||
+2 | |||
+3 | |||
+4 | |||
... | ... | ... | ... |
+99 | |||
+100 | |||
Begin... End.
, , , , , , .