1 2003

= =


-. 4.1

: -, -, -, -.

:

1. (1 ) -:

Function F (m,k: integer): integer;

Begin

F:= m div 10 + k mod 10;

End;

Function G (a,b: integer): integer;

Begin

G:= a*a + b*b;

End;

a, b : a:=98;

b:=86-G(a mod 10,a97);

a:=F(a,b);

2.              -.

  1. (1 ) nod -.
    program nod;
    var x,y,nod: integer;
    begin
    writeln('
    ');read(x,y);
    repeat if x>y then x:=x-y else y:=y-x; until x=y;
    nod:=x; writeln('nod=',nod);
    end.
  2. (2 ) - max.
  3. (2 )
    X(x1,y1) Y(x2,y2) - rasst. , X(x1,y1) Y(x2,y2) .

3.              :

  1. (2 ) nok x y, - nod, , nok*nod=x*y.
  2. (2 ) ABCD, A(a1,a2), B(b1,b2), C(c1,c2), D(d1,d2).
  3. (2 ) . . - .

:

1.

:

Var a,b,c,d : Real;

Function Dum( a,b : Integer; c : Real) : Real;

Begin Dum:=a+b*c End;

Begin

a:=Dum(3,6,b); d:=Dum(9,12,a);

End.

1. a, Dum:=a+b*c?

2. a, a:=Dum(3,6,b)?

3. a, d:=Dum(9,12,a)?

2.

.

Proedure Simple(N:integer); Function Soversh(a,b:integer):real;

Function Best(ab:integer); Function Super(a,b:integer):mod;

3.

:

Var x,y,z,Neo,Tank: Real;

Function Matrix( a : Integer; b,c : Real) : Real;

Var m,n : byte;

Begin

m:= Int(b+c); n:= a*a*a-m; Matrix:=b/m + c/n

End;

 

Begin

Neo:=Matrix(15,z,3.14159)+z;
Tank:=Matrix(21,y,0.999)-y; x:=Neo+Tank;

End.

1. , .

x a y b z c m Neo n Tank

2. , .

x a y b z c m Neo n Tank

3. , .

x a y b z c m Neo n Tank

4. , .

x a y b z c m Neo n Tank

4.

:

Function Second (m,k: integer): integer;

Begin

Second:= m*(k mod 10) + k*(m mod 10);

End;

.

Second (7, 8); a:=Second (a, b+5); Second (3.14, 8);

5.

function Power(a,b:real):real;, a b. , z=123+bacb.

6.

:

Function S (a,b,c: integer): integer;

Begin

S:= a*b + b*c + a*c;

End;

z : z:=7S(2,2,3);


 

: WWS corporation & ROKI company.