7
,
: .
, . Procedure, . , :
Procedure <> [( )]; Begin End; |
, . :
- ,
- .
. - . Var.
- . Var.
(). ( ) ( ). .
. , Summa(a,150,s).
. y=3x10 + 2x5+x3.
. , n .
Var x, y, s1, s2, s3: integer; {x, y, s1, s2, s3 }
Procedure St (a, n: integer; Var s: integer);
{a, n, S }
{a,n - , S - }
Var i: integer; {i }
Begin
S:=1;
For i:=1 to N do s:=s*a;
End; {ProcedureSt }
BEGIN
Read(x);
ST(x, 10,s1); ST(x, 5,s2); ST(x, 3,s3);
Y:=3*s1+2*s2+s3;
Write(y);
End.
Function, , , ( ).
! , , . . |
, :
Function [ ( )]: ;
< >
Begin
< >
End;
: , y: =f(1,x)+f(2*x,3).
|
|
.
.
Var n: integer;
c: integer;
Function Factor (n:integer): integer;
Var i:integer; rez: integer;
Begin
Rez:=1;
For i:=1 to N do
rez:=rez*i;
Factor:=rez;
End;
Begin
Readln (n);
:=factor(n);
Writeln (c);
End.
1. , .
2. :
procedure Swap (var x,y: real);
var t:real; //
Begin
t:=x; // x
x:=y; // x y
y:=t; // y t, x
end;
- , , : .
- c,d,l,k. min : .
- 3 n : , , . , max(A) ( max(B) max(C)). . , max(C)<>0.
- . . ( , B).
***
- , 7 A n .
- W, N .