, . :
For i:= N1 To N2 Do <>;
For i:= N1 DownTo N2 Do <>;
i ( ),
N1, N2 - i.
N1, N2 , .
For () :
1. N1.
2. N2. , (<>), .
3. ; 2.
DownTo . 2 , . . .
. N . / N . :
:
ProgramSummering; VarI,M,N,Summa: Integer; Begin Write('M='); ReadLn(M); Write('N='); ReadLn(N); Summa:=0; ForI:=M To N Do Summa:=Summa+I; WriteLn(' ', Summa) End. |
, . - :
,
While <> do <>;
:
While <> (True), (False), , . . While . While , , , <> . : Begin <> end.
.
, ε i MaxInt.
S:=0;
I:=1;
While (1/I>=Eps) And (I<MaxInt) Do
Begin
S:=S+1/I;
I:=I+1
End;