a:=15+5; { a . , a }
, , .
, . .
- .
- . , - .
- , , , ( ) - ().
- . , : - .
- ; , , , - .
, : , - ( ";"). . - , ( halt).
read(< >) readln(< >). - () , . , ( !).
read(a,b,c); { a,b,c - . }
readln(a,b,c); { a,b,c - . enter( )}
write(< >) writeln(< >).
, , , . .
write(a,b,c); { a,b,c - . , }
|
|
writeln(a,b,c); { a,b,c - . , )}
ln , .
Pascal-
Pascal-
. , , x z, - z=max(x, y), z:=x, z:=y. x y , , . . , .
x>y. x y ( true), z:=x; z:=y ( x=y , , z:=y ).
. :
if B then S1 else S2
if (), then () else () , , S1 S2 .
S1 S2: ( true), S1, S2.
z= max(x, y)
if x>y then z:= x else z:= y
, - , , . : x<0, x:= - x; x>=0, , .. - .
:
if B then S
: true, S; .
then else, else . ( ) , , , .. begin... end ( !). , , x< y , :
|
|
if x<y then begin r:=x; x:=y; y:=r end
. ,
if B1 then if B2 then S1 else S2
, , :
if B1 then begin
if B2 then S1 end
else S2
if B1 then begin
if B2 then S1 else S2 end
, .. , else then. .
. , , .
: