.


:




:

































 

 

 

 


,




.

.

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.

, , , , , , .





:


: 2016-11-18; !; : 491 |


:

:

: , .
==> ...

1347 - | 1290 -


© 2015-2024 lektsii.org - -

: 0.008 .