. :
Continue; - , Break; - .Continue Break . Continue , . Break , , . Continue Break . .
For i:= 1 to 3 do begin Write(' :'); Readln(S); {S Parol - } If S = Parol Then Break { } else If i <> 3 Then Continue; { } Writeln(' '); Writeln(' Enter'); Readln; Halt { } end; { }
: Borland delphi, ; .
, . ( ) ( ) .
FOR, WHILE, REPEAT.
1. [ ] 0,1
var x, y:real;
Begin
x:=0; // x
//
while x<=pi do
Begin
// y
y:=exp(sin(x))*cos(x);
x:=x+0.1;
memo1.Lines.Add('x= '+floattostr(x)+'; y= '+floattostr(y)); // Memo1
end;
End.
2: 1 M . n , , n- , .
, , , , . , , , , m m-.
, 153 , :
1³ + 5³ + 3³ = 153
, dkdk − 1... d 1 b.
|
|
m , , n m- . , , m = k, n .
, m m- , , k
.
, , :
153 = 13 + 53 + 33
370 = 33 + 73 + 03
371 = 33 + 73 + 13
407 = 43 + 03 + 73.
:
1. : xϵ[1;M], x=
2. :
" "
" i"
", i "
, - :
, .
PROGRAM Primer_1;
var i,k,s,p,n: Integer;
BEGIN
Write(' M '); Readln(m);
For i:=1 to M do
begin
s:=0; k:=i; n:=0;
While k<>0 do
begin k:=k DIV 10; n:=n+1 end;
k:=i;
While k<>0 do
begin p:=k MOD 10; k:=k DIV 10;
If p<>0 then s:=Trunc (s+Exp(n*Ln(p)))
end;
If s=f then WriteLn (f)
end;
END.
:
n. :
1. ;
2. ;
, n. :
3.x (x - n)(x - 2 n)(x - 3 n)(x - n2);
4. ;
5. ;
n. c:
6. ;
7. ;
( , ):
8. = ;
9. = ;
10. = ;
, -+\. , e.
1. , 2,3,4,5,6,7,8,9.
2. , .
3. , .
4. , , .
5. , 17.
6. , .
7. , , .
8. , .
9. ?
10. ? .