.
.
.
Write(P1,P2Pn) // (, )
. .
.
.
1), ,
Write(P1:N1,P2:N2,,PN:NN);
Writeln(P1:N1,P2:N2,,PN:NN);
Ni- ( const,, Word,byte,integer)( 80 )
2) x.x.xE +-{dddd}
- Ni .
- Ni , .
- Ni . .
:
, .
Mi<0 .
Mi = 0 .
Mi , .
Mi , , .
Ni >0,
Ni <0
- , Begin, end .
- IF b Then s1 { }
Else s2
- IF b Then s1 { }
b- , S1,S2 .
S .
1) .
| B? |
| S2 |
| S1 |
Case N of
M1:s1;
M2:s2;
Mk:sk
Else s
End:
N- ( );
M1,M2,.Mk ( );
S1,s2,sk .
:
: A_+B (<>< >< > <>)
A B
A /B
A *B
:
Var
R,A,B: real;
Z: char;
Begin
Writeln(Enter A_ZB);
Readln(A,Z,Z,B);
Case Z of
+: R=A+B;
-: R=A-B;
/:R=A/B;
*:R=A*B;
End;
Writeln(R=,R);
End.
.
Case k of
m11,m12,m13:s1;
m21,m22:s2;
end;
. (A..Z)
.
Goto N;(N label);
.
GOTO
1) .
|
|
|
2) (If, case, )
3) If, Case.
4) .
.
. :
-
-
, , .
a1,a2,..,an,.. : x
An:=((-1)^n*x^n)/(n(n+1!))
, |an|<ὲ(ὲ<10^-2)
IF GOTO, , .
:
-
-
- .
1:
:
A
B
C
D
* :
1) . Char.
2) A, Z.
:
program p1;
Var
c:char; n:byte;
Begin
n:=1;
for c:='A' to 'Z' do
Begin
writeln(c:n);
inc(n)
end;
end.
_____________
for ( ) N1, N2, I .
if, goto, case. . .
2:
sqrt(3+sqrt(6+.sqrt(3*(n-1)+sqrt(3*n)))).
:
For i:=n downto 1 do s:=sqrt(3*i+s);
_____________
:
I=1,n 2
I:=1;
while I <= n do
Begin
S;
Inc(I,2);
end;
