:= 100, b:=0 := - b * 3 if > b then := b else := b ; |
2.2. , , :
var n, s: integer; begin n:= 14; s:= 0; while n <= 18 do begin s:= s + 25; n:= n + 1; end; write(s); end. |
2.3. , > 4000. , .
|
D | ||||
D |
1) 2) 3) 4)
2.5. , , , , , , , , , , , . , . ?
11 1
2
1.1. ?
) -
) - ,
) -
) - ,
, ,
)
)
)
)
1.3. . 5 :
)
)
)
)
)
1.4. , Var word?
|
|
) -32767 ) 0 ) 6,5535 ) 65535
1.5. : X>Y>Z, A=X+Y+Z :
) If not(X<Y<Z) then A:=X+Y+Z
) If X>Y>Z then A:=X+Y+Z
) IF (X>Y) or (Y>Z) then A:=X+Y+Z
) IF (X>Y) and (Y>Z) then A:=X+Y+Z
1.6. , ?
) ) ) )
1.7. MEMO?
) ) ) )