, , , , , . .

 

 

!

 

:

:

 

 

 

?

StudentHelp, , MS Word. , , antiplagiat.ru, etxt.ru advego.ru. StudentHelp , Word .


:


:

: . : 03.06.2012. : 2010. : 18. antiplagiat.ru: < 30%

():


.
































: 204Ϡ
: .

-2010




I. .
1. , , .
2. .
II. .
1. .
2. .
3. .
4. .
5. .
III. .
1. .
2. .

























I.


1.1. , ,

1.1.1 , .

Program prim_1;
Uses crt;
Var A, B, C, P: integer;
Begin clrscr;
Writeln ( );
Readln(A,B,C);
P: =A*B*C;
Writeln(P);
End.



1.1.2. , , .

Program prim_1;
Uses crt;
Var S,A,B : integer;
Begin clrscr;
Writeln ( );
Readln(A,B);
S:=A*B;
Writeln(S);
End.


1.1.3. . .

Program prim_1;
Uses crt;
Var r,l : real;
Begin clrscr;
Writeln ( );
Readln(r);
L := 2*pi*r;
Writeln(l);
End.



1.1.4. . .

Program prim_1;
Uses crt;
Var A,B,P := real;
Begin clrscr;
writeln ( );
Readln(A,B);
P:=(A+B)/2;
Writeln(P);
End.

1.1.5. . .

Program prim_1;
Uses crt;
Var r,V: = integer;
Begin clrscr;
Writeln ( );
Readln(r);
V:=4/3*PI*sqr(r)*r;
Writeln(' ',v:4:2);
End.

1.1.6. H.

Program prim_1;
Uses crt;
Var g,t,h : real;
Begin clrscr;
Writeln ( h);
Readln(h);
G: =9,81;t:=sqrt(28h/g);
Writeln( =,t);
End.








1.2.

1.2.1. . ) ) 7.

Program prim;
Uses crt;
Var a: integer;
Begin clrscr;
Writeln( );
Readln(a);
If a mod 2=0 writeln()
else writeln( );
if a mod 10=7 then writeln()
else writeln( );
End.






1.2.2. . .

Program prim_1;
Uses crt;
Var A, M:= integer;
Begin clrscr;
Writeln ( );
Readln(A);
M: =A div 100;
Writeln(M);
End.


1.2.3 . 2 , .

Program prim;
Uses crt;
Var a,b,max: integer;
Begin clrscr;
Writeln( 2 );
Readln(a,b);
If a>b then max: =a
else max:=b;
writeln(max);
End.





1.2.4. , , 3.

Program prim;
Uses crt;
Var a,: integer;
Begin clrscr;
Writeln( a);
Readln(a);
If a mod 3=0 then writeln()
else writeln( );
End.




























II.


2.1.

2.1.1. ,,. . <<. .

Program prim;
Uses crt;
Var a,b,c: integer;
Begin clrscr;
Writeln();
Readln(a,b,c);
If a<b and b<c then Writeln()
else Writeln( );
End.




2.1.2. ,,. . <<. .

Program prim;
Uses crt;
Var a,b,c: integer;
Begin clrscr;
Writeln( );
Readln(a,b,c);
If a<b and b<c then Writeln()
else Writeln( );
End.


2.1.3. 2 , .

Program prim;
Uses crt;
Var a,b,max: integer;
Begin clrscr;
Writeln( 2 );
Readln(a,b);
If a>b then max: =a
else max:=b;
writeln(max);
End.





2.1.4. , , 3.

Program prim;
Uses crt;
Var a,: integer;
Begin clrscr;
Writeln( a);
Readln(a);
If a mod 3=0 then writeln()
else writeln( );
End.


2.1.5. . ) ) 7.

Program prim;
Uses crt;
Var a: integer;
Begin clrscr;
Writeln( );
Readln(a);
If a mod 2=0 writeln()
else writeln( );
if a mod 10=7 then writeln()
else writeln( );
End.















2.1.5. 3 a,b,c. .

Program prim;
Uses crt;
Var a,b,c.min,min1: integer;
Begin clrscr;
Writeln( 3 );
Readln(a,b,c);
If a<b then min: =a
else min:=b;
if min<c then min1:= min
else min1:=c;
writeln(min1=min);
End.





2.2.

2.2.1. 2 a,b. .

program av;
uses crt;
var a,b :integer;
Writeln( );
Readln(a,b);
if a mod 2=0 then Writeln()
else Writeln( );
if b mod 2=0 then Writeln ()
else Writeln( );
end.













2.2.2. , , 3.

Program prim;
Uses crt;
Var a,: integer;
Begin clrscr;
Writeln( a);
Readln(a);
If a mod 3=0 then writeln()
else writeln( );
End.


2.2.3 . . ) ) 7.
Program prim;
Uses crt;
Var a: integer;
Begin clrscr;
Writeln( );
Readln(a);
If a mod 2=0 writeln()
else writeln( );
if a mod 10=7 then writeln()
else writeln( );
End.





2.2.4 . 9.

Program prim;
Uses crt;
Var a,: integer;
Begin clrscr;
Writeln( a);
Readln(a);
If a mod 9=0 then writeln()
else writeln( );
End.




2.3.

2.3.1. . , 1; . .

Program if_1;
Uses crt
Var a:integer;
Begin clrscr;
Writeln('');
Readln(a);
If a>0 then a:=a+1;
Writeln(' ',a);
Readln;
End.



2.3.2. 2 a. .

Program if_5;
Var a,b,c,k1,k2:integer;
Begin
Writeln(' ');
Readln(a);
Writeln(' ');
Readln(b);
Writeln(' ');
Readln(c);
k1:=0;
If a>0 then k1:=k1+1 else if a<0 then k2:=k2+1;
If b>0 then k1:=k1+1 else if b<0 then k2:=k2+1;
If c>0 then k1:=k1+1 else if c<0 then k2:=k2+1;
Writeln(' ',k1);
Writeln(' ',k2);
Readln;
End.










2.3.3. . , 1; . .

Program if_1;
Uses crt
Var a:integer;
Begin clrscr;
Writeln('');
Readln(a);
If a>0 then a:=a+1;
Writeln(' ',a);
Readln;
End.




2.3.4. 3 a. .

Program if_4;
Var a,b,c,k1:integer;
Begin
Writeln(' ');
Readln(a);
Writeln(' ');
Readln(b);
Writeln(' ');
Readln(c);
k1:=0;
If a>0 then k1:=k1+1;
If b>0 then k1:=k1+1;
If c>0 then k1:=k1+1;
Writeln(' ',k1);
Readln;
End.











2.3.5. . , 1; 2. .

Program if_2;
Var a:integer;
Begin
Writeln(' ');
Readln(a);
If a>0 then a:=a+1 else a:=a-2;
Writeln(' ',a);
Readln;
End.





2.4.

2.4.1.
    -1, x<1
    Y(x) y= x, x<1
    1, =1

Program primer;
Uses crt;
Var y,x: integer;
Begin clrscr;
Readln(x);
If (x<-1) then y:=1
    else begin
if (x>1) then y:=x
    else begin
if (x=1) then y:=1;
end;
end;
writeln (y);
end.

2.4.2. z(a)
1, a>0
Z= 0, a=0
-1, a<0

Program primer1;
Uses crt;
Var a,z: integer;
Begin clrscr;
Readln (a);
If (a>0) then z:=1
else begin
if (a=0) then z:=0
else begin
if (a<0) then z:=-1;
end;
end;
writeln (z);
end.

2.4.3. f(x)
0, x<=0
f= x, 0<x<=1
x sqr, .
program primer 2;
Uses crt;
Var f,x: integer;
Begin clrscr;
Readln(x);
If (x<=0) then f:=0
else begin
if (x=1) and (x>0) then f:=x
else f:=x;
end;
writeln (f);
end.

2.4.4. f(y)
2, y>2
f= 0, 0<y<=2
-3y,
Program primer3;
Uses crt;
var f,y: integer;
begin clrscr;
readln (y);
if (y>2) then f:=2
else begin
if (y<=2) and (y>0) then f:=0
else f:=-3*x*y;
end;
writeln (f);
end.


2. 5.

2.5.1. , .

Program primer1;
Uses crt;
Var x :integer;
Begin clrscr;
Readln(x);
Case x of;
1: writeln(pn);
2: writeln(vt);
3:writeln(sr);
..................



90% antiplagiat.ru, etxt.ru advego.ru




* . , .