◦
◦
B. MS EXCEL
◦ , ,
◦
2
2 (. )
2,
3
2
. ( D13). ? ( "") / . 3.ods
5
2 . , . Q . 5.ods
7
2 . E, F, G, H . 7.ods
 |
9
2 :
.306
| 830 | 910 | 10 | 9 . | 9 | 10 . . | 9 | ||
| 915 | 955 | |||||||
| 1005 | 1045 | 10 | 11 | 10 | 10 . . | |||
| 1050 | 1130 | |||||||
| 1220 | 1300 | 10 . | 10 . . | 11 | 9 . | |||
| 1305 | 1345 | 9 | 9 | |||||
| 1355 | 1435 | 9 | 9 | |||||
| 1440 | 1520 | 10 | ||||||
| 1530 | 1610 | |||||||
| 1615 | 1655 |
10
2 y = ax2 - bx + c ( -20 +20 0.5; a,b,c B9:B11). 10.ods
12
2 , . , .
|
|
|
:
() . 12.ods
 |
13
2
, , . , , , Times) 14 . , 1 . , .
, , . .
, . . . , , . - () . , .
| 344622 | |
| 1130. | |
| 32,8 ./2 |
14
 |
2 : " ", ( ), . (. ). , , , : . ! 3 . 14.ods
17
2 . : 18- - , 23,5 - . , . 17.ods
20
2 . , 2 10 . , B2 B3. , .
 |
20.ods
1
, . , (5 25, 6 36, 25 625)
|
|
|
var
n,i,j,k:integer;
begin
readln(n);
i:=1; j:=sqr(n); k:=n;
while n>0 do
begin
i:=i*10;
n:=n div 10;
end;
j:=j mod i;
if j=k then
writeln('yes') else writeln('no');
end.
2
, 10 . 10% . 20
var
i,j,k:integer;
n:real;
begin
n:=10; i:=1;
repeat
n:=n+n*0.1;
i:=i+1;
until n>20;
writeln (i);
end.
3
N. , ? , .
var
n,i,j,k:integer;
begin
readln(n); j:=n;
i:=1; k:=0;
while n>0 do
begin
k:= k*10+n mod 10;
n:=n div 10;
end;
if j=k then
writeln('yes') else writeln('no');
end.
4
2. . 1,3 , 8. ? , .
. , , .. 1 .
: 22,7
3
var
n,k:integer;
begin
readln(n);
k:=1;
repeat
k:=k+1;
until n mod k =0;
if n=k then
writeln('yes') else writeln('no');
end.
5
S 1000 1+1/2+1/3+1/4+1/N. REPEAT.
var
n:integer;
s:real;
begin
n:=1; s:=0;
repeat
s:=s+1/n;
n:=n+1;
until n=1000;
writeln(s);
end.
6
2. . , , , , . , , , , , . ?
:
3. N , .
var
n, max, next, k:integer;
begin
writeln(' ');
readln(n);
write(' ');
readln(max);
k:=1;
repeat
write (' '); readln(next);
k:=k+1;
if next>max
then max:=next;
until k=n;
writeln(max);
end.
7
1, 2, 4, 8, 16, 32 64. N. N ( )? , .
var
n,x, k:integer;
begin
writeln(' ');
readln(n);
k:=64;
while n>0 do
begin
if n>=k then begin writeln (n div k,' ', k); n:=n mod k; end;
k:=k div 2;
end;
end.
8
2. . 128/. 20 ?
: 2,5
3. ax2+bx+c=0
var
a,b,c,d:integer;
x1,x2: real;
begin
writeln(' a,b,c');
readln(a,b,c);
d:=sqr(b)-4*a*c;
if d < 0 then writeln(' ')
else
if d=0 then writeln (' =',(-b+sqrt(d))/(2*a))
else
writeln (' =',(-b+sqrt(d))/(2*a),' =',(-b-sqrt(d))/(2*a));
end.
9
2. 738, 3410, 1101112, 3316
: 738
3. /
var
a,i:integer;
s,s2:string;
begin
writeln(' ');
readln(a);
s:='';
while a>0 do
begin
s:=s+inttostr(a mod 2);
|
|
|
a:= a div 2;
end;
writeln(s);
for i:= length(s) downto 1 do
s2:= s2+s[i];
writeln(s2);
end.
10
1 10 1 10. :
1*1=1
1*2=2
1*10=10
2*1=2
2*2=4
.
2*10=20
.
.
.
10*1=10
10*2=20
10*10=100
var
j,i:integer;
begin
for i:= 1 to 10 do
begin
for j:= 1 to 10 do
writeln(i,'*',j,'=',i*j);
writeln;
end;
end.
11
2. . (&B)v(A&B)=0, . , . .
: 2
3. . , .
var
x1,y1,x2,y2,x3,y3:integer;
begin
writeln(' 1 ');
readln(x1,y1);
writeln(' 2 ');
readln(x2,y2);
writeln(' 3 ');
readln(x3,y3);
if (sqrt(sqr(x1)+sqr(y1))< sqrt(sqr(x2)+sqr(y2))) and(sqrt(sqr(x1)+sqr(y1))< sqrt(sqr(x3)+sqr(y3)))
then writeln ('1');
if (sqrt(sqr(x2)+sqr(y2))< sqrt(sqr(x1)+sqr(y1))) and(sqrt(sqr(x2)+sqr(y2))< sqrt(sqr(x3)+sqr(y3)))
then writeln ('2');
if (sqrt(sqr(x3)+sqr(y3))< sqrt(sqr(x2)+sqr(y2))) and(sqrt(sqr(x1)+sqr(y1))> sqrt(sqr(x3)+sqr(y3)))
then writeln ('1');
end.
12
, N .
var
n,k,i,j:integer;
begin
readln(n);
for j:= 1 to n do
begin
i:=j; k:=0;
while i>0 do
begin
k:= k+sqr((i mod 10))*(i mod 10);
i:=i div 10;
end;
if j = k then write(j:4);
end;
writeln;
end.
13
S . 1, 5, 10, 50, 100, 500 . , .
var
s,x, k:integer;
begin
writeln(' ');
readln(s);
k:=500; x:=0;
while s>0 do
begin
if s>=k then begin writeln (s div k,' ', k); s:=s mod k; end;
if x=0 then begin k:=k div 5; x:=1; end
else begin k:=k div 2; x:=0; end;
end;
end.
14
S . N ?
var
n,i:integer;
s: real;
begin
writeln(' ');
readln(s);
write(' ');
readln(n);
for i:= 1 to n do
s:= s +s*0.03;
writeln(s);
end.
15
2. . (vB)&(AvB)=0, . , . .
: 2
3. While 2 100
var
i:integer;
begin
i:=2;
while i<=100 do
begin
if (i mod 2) =0 then writeln(i); i:= i+1;
end;
end.
16
2. . 0,25 . , Unicode?
: 128
3. , 10 . 10% . 100.
|
|
|
var
i,j,k:integer;
n,s:real;
begin
n:=10; s:= 10;i:=1;
repeat
n:=n+n*0.1;
s:= s+n;
i:=i+1;
until s>100;
writeln (i);
end.
17
2. . , 2 44,1 16 . , .
: 10,09
3. . . , .
var
n,i, k:integer;
begin
n:=1;
readln(k);
for i:=1 to k do
n:=n*2;
writeln (n);
end.
18
2. . , 640*350 , 16? .
: 219
3. A, B, C, , . , , . 1 1 .( , , 100 , . , 400, . , 2000 . , 400 .)
var
a,b,c,i,s:integer;
begin
readln(a,b,c);
s:=0;
for i:= 1 to (b-1) do
case i of
1,3,5,7,8,10,12: s:=s +31;
4,6,9,11: s:=s+30;
2: if (c mod 4 = 0) then
begin
if (c mod 100 = 0) then
begin
if (c mod 400 = 0) then s:=s+29 else s:=s+28
end
else s:=s+29;
end
else s:=s+28;
end;
s:=s+a;
writeln(s);
end.
19
2. . A, B, C, D . , : D B ; C ; D . , ?
: DCBA
3. N . .
var
n, m, next, k,c:integer;
begin
writeln(' ');
readln(n);
write(' ');
readln(m);
k:=1; c:=0;
repeat
write (' '); readln(next);
k:=k+1;
if next=m
then c:=c+1;
until k=n;
writeln(c);
end.
20
2. 4 , , . . , , , . ?
: 2
3. N . : .
var
n,next,p,k,o:integer;
begin
writeln(' ');
readln(n); p:=0; o:=0;
repeat
write (' '); readln(next);
k:=k+1;
if next>0 then p:=p+1;
if next<0 then o:=o+1;
until k=n;
if p>o then writeln(' ')
else if p<o then writeln (' ')
else writeln('');
end.
