Sin X;
Cos X;
Tg X.
Program Example_160;
Uses crt;
Var N:byte; {N , }
X,Y:real; {X , Y
}
Begin
Clrscr; { }
Write( : );
Readln();
Write( , : );
Writeln(1 - sin);
Writeln(2 - cos);
Writeln(3 - tg);
Readln(N);
Writeln( :)
Case N of
1: begin Y:=sin(X); writeln(sin(x)=,Y:8:2); end;
2: begin Y:=cos(X); writeln(cos(x)=,Y:8:2); end;
3: begin Y:=sin(X)/cos(X); writeln(tg(x)=,Y:8:2);
end;
Else writeln( .);
End;
Readkey; {
}
End.
164. -"", , , :
1) ';
2) ;
3) ;
4) -;
5) .
Program Example_164;
Uses crt;
Var N:byte; {N }
Begin
Clrscr; { }
Randomize; {,
}
N:=random(4)+1;
Write(³! )
Case N of
1: writeln(!!!);
2: writeln(!!!);
3: writeln(!!!);
4: writeln(-!!!);
5: writeln( !!!);
End;
Readkey; {
}
End.
165. N (N <= 100), . : "", "", "", : 1 , 12 , 43 .
Program Example_165;
Uses crt;
Var Years:byte; {Years }
Begin
Clrscr; { }
Write( : );
Readln(Years);
Write( ,Years);
If (Years>=10) and (Years<=20)
Then writeln()
Else
Case Years mod 10 of
1: writeln(.);
2..4: writeln(.);
0,5..9: writeln(.);
End;
Readkey; {
}
End.
177. , , ' , . ' x1 , - 2, , , - xn . : , ' , , , .. , .
Program Example_177;
Uses crt;
Var I,N:word; {I , N
,
}
Sum,X:word; {X
, Sum
,
|
|
璿 }
Begin
Clrscr;
Sum:=0; {
璿}
Write( : );
Readln(N);
For I:=1 to N do
Begin
Write(
: );
Readln(X);
Sum:=Sum+X;
Writeln( 甿
,Sum, .);
End;
Readkey; { }
End.
183. ' . , - , - .. , N ? , k l ' ? ?
Program Example_183;
Uses crt;
Var I,N,Sum:word; {I , N
,
, Sum
,
}
Place,k,l:word; {k
, l
, Place
, }
Begin
Clrscr;
Sum:=0;
Write( ,
: );
Readln(N);
For I:=1 to N do Sum:=Sum+I;
Writeln(ʳ , ,Sum);
Writeln(ʳ ,k*l);
If Sum < k*l Then writeln( .)
Else writeln( .);
Place:=Sum k*l;
If Place>0
Then writeln( ,Place,.);
Readkey; { }
End
179. , , . , S , , , a1, a2, a3, an?
Program Example_179;
Uses crt;
Var N:word; {I ,
}
Sum,A,S:real; {Sum ,
, A
,
, S ,
}
Begin
Clrscr;
Sum:=0; {
N:=0; }
Write( , : );
Readln(S);
Repeat
Write( : );
Readln();
Sum:=Sum+;
N:=N+1;
Until Sum>S;
Writeln( ,N,- .);
Readkey; { }
End.
180. 18 , . , . , n m . , , k . ?
Program Example_180;
Uses crt;
Var m,n,k:word; {n
, m
, k
}
Sum,Years:word; {Sum
, Years
}
Begin
Clrscr;
Write( : );
|
|
Readln(n);
Write( : );
Readln(m);
Write( : );
Readln(k);
Sum:=n; { }
Years:=18; { }
While Sum<=k do
Begin
Sum:=Sum+m;
Years:=Years+1;
End;
Writeln( ,Years, .);
Readkey; { }
End.
181. , . , . , N ?
Program Example_181;
Uses crt;
Var S,N,Sum:longint; {S ,
, Sum
,
, N
}
Day:word; {Day ,
}
Begin
Clrscr;
Write(
: );
Readln(N);
If N=0
Then writeln(ij , !)
Else
begin
Day:=0;
Sum:=N;
S:=1; { ,
}
Repeat
Sum:=Sum-S; { }
S:=S*2;
Day:=Day+1; {ϳ }
Until Sum<=0;
Writeln( ,Day, .);
End;
Readkey; { }
End.
189(2). (1 + 0.1)(2 + 0.2)...(9 + 0.9)
Program Example_189_2;
Uses crt;
Var I:word; {I }
Rez:real; {Rez }
Begin
Clrscr;
Rez:=1; { 1,
}
For I:=1 to 9 do Rez:=Rez*(I+0.1*I);
Writeln(Rez= ,Rez:8:2);
Readkey; { }
End.
190(1). n. n!
Program Example_190_1;
Uses crt;
Var I,n:word; {I }
Factorial:longint; {Factorial
}
Begin
Clrscr;
Factorial:=1; { 1,
}
Write( n: );
Readln(n);
For I:=1 to n do Factorial:=Factorial*I;
Writeln(Factorial= ,Factorial:8:2);
Readkey; { }
End.
190(3). n. 1*3*5*7**(2n+1).
Program Example_190_3;
Uses crt;
Var I,n:word; {I }
Rez:longint; {Rez }
Begin
Clrscr;
Rez:=1; { 1,
}
Write( n: );
Readln(n);
For I:=0 to n do Rez:=rez*(2*I+1);
Writeln(Rez= ,Rez:8:2);
Readkey; { }
End.
190(6). n. sin(1)*sin(1+2)**sin(1+2++n).
Program Example_190_6;
Uses crt;
Var I,n:word; {I }
Rez,Sum:longint; {Rez ,
Sum }
Begin
Clrscr;
Rez:=1; { 1,
}
Sum:=0; { 0,
}
Write( n: );
Readln(n);
For I:=1 to n do
Begin
Sum:=Sum+I; { }
Rez:=Rez*sin(Sum); { }
End;
Writeln(Rez= ,Rez:8:2);
Readkey; { }
End.
191(1). n .
Program viraz;
Uses crt;
Var n, i: integer;
d,ch: real;
Begin
Clrscr;
Write( n: );
Readln(n);
d:=1; ch:=0;
for i:=1 to n do
begin
ch:=ch+i;
d:=d*ch/cos(ch);
end;
Writeln(d=, d);
Readln;
End.
191(6). n :
Program Example_191_6;
Uses crt;
Var I,n:word; {I }
|
|
Rez:real; {Rez }
Begin
Clrscr;
Rez:=0; { 0,
}
Write( n: );
Readln(n);
For I:=1 to n do
Begin
Rez:=sqrt(Rez+2);
End;
Writeln(Rez= ,Rez:8:2);
Readkey; { }
End.
197(1). n. .
Program Example_197_1;
Uses crt;
Var N:longint; {N }
Count:byte; {Count }
Begin
Clrscr;
Write( : );
Readln(N);
N:=abs(N); {
}
Count:=0; { }
Repeat
Count:=Count+1;
N:=N div 10; {³
}
Until N = 0;
Writeln(ʳ = ,Count);
Readkey; { }
End.
197(2). n. .
Program Example_197_2;
Uses crt;
Var n:longint; {N }
Sum:byte; {Sum }
Begin
Clrscr;
Sum:=0; { 0}
Write( : );
Readln(N);
N:=abs(N);
While N>0 do
Begin
Sum:=Sum+N mod 10; { }
N:=N div 10; {³
}
End;
Writeln(Sum= ,Sum);
Readkey; { }
End.
200(2). . n, .
Program Example_200_2;
Uses crt;
Var n:word; {n }
Rez,a:real; {Rez ,
}
Begin
Clrscr;
n:=1; { n - 1}
Write( a: );
Readln(a);
Rez:=0; { }
While Rez<=a do
Begin
Rez:=Rez+1/n;
n:=n+1;
end;
Writeln(n= ,n);
Readkey; { }
End.
203(2). n, : .
Program Example_203_2;
Uses crt;
Var n:word; {n }
Begin
Clrscr;
n:=1;
While 4*n+841*sqrt(n)+3>=0 do n:=n+1;
Writeln(n= ,n);
Readkey; { }
End.
204. m>1. k, 4k < m.
Program Example_204;
Uses crt;
Var m,k,Rez:longint; {Rez 4}
Begin
Clrscr;
Write( m (m>1): );
Readln(m);
Rez:=1;
k:=0;
While Rezdo
Begin
k:=k+1;
Rez:=Rez*4;
End;
Writeln(k= ,k);
Readkey; { }
End.
208(1). ϳ . , , e (e > 0) . , , , e. :
Program Example_208_1;
Uses crt;
Var i:word;
Rez,Epsilon:real; {Rez ,
Epsilon - }
Begin
Clrscr;
Rez:=0; { 0,
}
Write( (>0): );
Readln(Epsilon);
i:=1;
While 1/sqr(i)>Epsilon do
Begin
Rez:=Rez+1/sqr(i)
i:=i+1;
End;
Writeln(Rez= ,Rez:8:2);
Readkey; { }
End.
210. n, . , ("1" - , "2" - ..). - .
|
|
Program Example_210;
Uses crt;
Var I,n:word; {I , n }
Time:word;
Begin
Clrscr;
Write( : );
Readln(n);
Time:=10000; {
,
,
}
If (n<1) or (n>12)
Then
begin
writeln( ,
);
sound(200);
end
Else
For I:=1 to n do
Begin
Sound(200);
Delay(time);
Nousound;
Delay(time);
End;
Readkey; { }
End.
212. p,
Program Example_212;
Uses crt;
Var i,n:word; { , n
}
Rez_Pi:real; {Rez_Pi
Pi}
Begin
Clrscr;
Rez_Pi:=0;
i:=1; {i }
n:=0; {n }
while round(pi*1000)=round(Rez_Pi*4000) do
Begin
If n mod 2 = 0
Then Rez_Pi:=Rez_Pi+1/i
Else Rez_Pi:=Rez_Pi-1/i;
i:=i+2;
n:=n+1;
End;
Writeln(ʳ - ,n);
Writeln( Pi: );
Writeln( : ,Rez_Pi:8:3);
Writeln( : ,Pi:8:3);
Readkey; { }
End.
208(4). ϳ . , , e (e > 0) . , , , e. :
Program Example_208_4;
Uses crt;
Var i:word; {i }
S,Sum:real; {S , Sum
}
Epsilon:real; {Epsilon
}
Begin
Clrscr;
Write( : );
Readln(Epsilon);
Sum:=0; { 0
}
S:=1; {
1}
i:=1;
repeat
if i mod 2 =0
then Sum:=Sum + 1/S
else Sum:=Sum - 1/S;
i:=i+1;
S:=S*i;
until 1/S<=Epsilon;
Writeln( = ,Sum:8:2);
Readkey; { }
End.
209. , N (N > X), 200% ?
Program Example_209;
Uses crt;
Var X,N:real; {X , N
}
Rez:real; {Rez
}
Years:longint; {Years ,
}
Begin
Clrscr;
Write( : );
Readln();
Write( : );
Readln(N);
If N<=X
Then writeln( !)
Else
Begin
Rez:=X;
Years:=0;
Repeat
Rez:=3*Rez; {200%
}
Years:=Years+1;
Until Rez>=N;
Writeln( ,years, .);
End;
Readkey; { }
End.
231. , , , Vmax, V1, V2, , Vn.
Program Example_231;
Uses crt;
Var V,Vmax:real; {V ,
Vmax
}
Count:longint;{Count }
Begin
Clrscr;
Count:=0; { }
Write( : );
Readln(Vmax);
Vmax:=abs(Vmax); {
䒺
}
Repeat
Write( : );
Readln(V);
If V>Vmax then Count:=Count+1;
Until V<=0;
Writeln(ʳ ,Count);
Readkey; { }
End.
234(2). n i a1, a2, , an. ak a1, a2, , an, 3 7.
Program Example_234_2;
Uses crt;
Var n:word; {n , }
a,count:word; {a ,
|
|
; count
,
}
Begin
Clrscr;
count:=0; {
0}
Write( , : );
Readln(n);
Repeat
Write( : );
Readln(a);
If (a mod 3 = 0) and (a mod 7 <> 0)
Then count:=count+1;
n:=n-1;
Until n<0;
Writeln(ʳ = ,count);
Readkey; { }
End.
239. . max() .
program max;
var
a,max:real;
i,n:integer;
begin
Write('n=');
Read(n);
Write('a1=');
Read(a);
max:=a;
for i:=2 to n do
begin
Write('a',i, '=');
Read(a);
if a>max then
begin
max:=a;
end
end;
Write('max=',max:7:3);
readln;
end.
251 (5). n a1, a2, , an (a1 < > 0). ³, . , , .
Program Example_251_5;
Uses crt;
Var count:word; {count
}
a,Sum:real; {a ,
Sum
0}
SA:real; {SA }
Begin
Clrscr;
Sum:=0;
count:=0; { 0}
repeat
write( : );
readln(a);
Sum:=Sum+a;
count:=count+1;
until a=0;
SA:=Sum/(count-1);
Writeln( = ,SA:8:2);
Readkey; { }
End.
417. - 䳿 . , ', , . -̳, , - . -?
Program Example_417;
Uses crt; {ϳ }
Procedure Solution (V,S - real; var T - time);
Begin
T:=S/V;
End;
Var X,Y,M:real;
Begin
Clrscr;
Write(' : ');
Readln(X);
Write(' : ');
Readln(Y);
If (X<=0) or (Y<0)
then writeln(' .')
else
begin
Solution(X,Y,M); { }
Writeln(' -> ',M:6:2);
end;
Readkey;
End.
423 (). . , , . , : 1, 2,... an - , b1, b2, bm - c1, c2, , ck - . (, ) ? , ?
Program Example_423;
Uses crt; {ϳ }
{ }
const
L = 100;
Type
T_Mas = array[1..L] of integer;
{ }
Procedure Input (var MAS:T_Mas; count:integer);
var i:integer;
begin
for i:=1 to count do
begin
MAS[i]:=round(100); {
}
write(MAS[i]:6);
end;
writeln;
end;
{ ; count - , }
Procedure Solution (MAS:T_Mas; count:integer;
var SUM,MAX:longint);
Var i:integer;
Begin
SUM:=0; { }
MAX:=MAS[1];
For i:=1 to count do
begin
SUM:=SUM+MAS[i];
if MAX<MAS[i]
then MAX:=MAS[i];
end;
End;
{ }
Procedure Search_Max(M:array of longint;
var n_max:integer);
var i,Maximum:integer;
begin
Maximum:=M[0]; n_max:=0;
for i:=0 to 2 do
if Maximum<M[i]
then
begin
Maximum:=M[i];
n_max:=i;
end;
n_max:=n_max+1;
end;
Var A,B,C:T_Mas;
n,m,k,number:integer;
S,Max:array[1..3] of longint;
Begin
Clrscr;
Writeln(' ');
Write('ʳ : ');
readln(n)
Input(A,n);
Write('ʳ : ');
readln(M)
Input(B,m);
Write('ʳ : ');
readln(k)
Input(C,k);
Solution(A,n,S[1],M[1]);
Solution(B,m,S[2],M[2]);
Solution(C,k,S[3],M[3]);
{, (, )
}
Search_Max(S,number);
Case number of
1: Write('');
2: Write('');
3: Write('');
End;
write(' .');
writeln;
write(' ');
{, ( , )
}
Search_Max(M,number);
Case number of
1: Write(' .');
2: Write(' .');
3: Write(' .');
End;
Readkey;
End.
427. - , ', , - COLOR_PAGE. .
Program Example_427;
Uses crt; {ϳ }
Procedure Solution (S:string; var R:string);
Begin
textbackground(Random(14)+1);
clrscr;
textcolor(Random(14)+1);
gotoxy(20,10);
writeln(' ',S);
gotoxy(20,11);
readln(R);
End;
Var A:string;
Begin
Solution(' ',A);
Solution(' "',A);
Solution(', ',A);
Solution(' ',A);
Readkey;
End.
463. , S . .
Program Example_463;
Uses crt; {ϳ }
Procedure Solution (x:char; var S:string;
var count:byte);
var i:byte; {
}
Begin
count:=0; i:=1;
while i<=length(S) do
begin
if S[i]=x
then
begin
count:=count+1;
delete(S,i,1);
end
else i:=i+1;
end;
End;
Var A:string; ch:char; N:byte;
Begin
clrscr;
writeln (' : ');
readln(A);
write (' : ');
readln (ch);
Solution(^ch,A,N);
writeln (' : ',A);
writeln ('ʳ : ',N);
readkey;
End.
420. ' . . : . ' ?
Program Example_420;
Uses crt; {ϳ } Mas
Type
T_Mas = array [1..5,1..2] of real;
Function Solution (Mas:T_Mas):byte;
var i:byte;
Min:real;
Begin
Min:=Mas[1,1]*Mas[1,2];
Solution:=1;
for i:=2 to 5 do
if Min > Mas[i,1]*Mas[i,2]
then
begin
Min:=Mas[i,1]*Mas[i,2];
Solution:=i;
end;
End;
Var Soldat:T_Mas;
Number,i:byte;
Begin
Clrscr;
{ }
For i:=1 to 5 do
begin
Soldat[i,1]:=random*100+50;
Soldat[i,2]:=random*0.8+1.5;
writeln(Soldat[i,1]:8:2,Soldat[i,2]:6:2);
end;
writeln (' ',Solution(Soldat),'- .');
Readkey;
End.
432. max2(a,b), , max3(a,b,c), , .
Program Example_432;
Uses crt; {ϳ }
Function Max2 (a,b:real):real;
begin
if a > b
then Max2:=a
else Max2:=b;
end;
Function Max3 (a,b,c:real):real;
Var Max:real;
Begin
Max:=Max2(a,b);
Max3:=Max2(Max,c);
End;
Var x,y,z,Rezultat:real;
Begin
Clrscr;
writeln (' : ');
readln (x,y,z);
Rezultat:=Max3(x,y,z);
Rezultat:=Rezultat+Max3(2,-4.5,12.54);
Rezultat:=Rezultat+Max3(abs(x),abs(y),abs(z));
writeln (' -> ',Rezultat:8:2);
Readkey;
End.
437. u v. : z = f(u,v) + f (u+v,uv) + f(u2,v2) + f(0.1,0.1)
Program Example_437;
Uses crt; {ϳ }
Function F(x,y:real; var Rez:real):boolean;
Begin
if (x=0) and (y=0)
then F:=false
else
begin
F:=true;
Rez:=(x+y)/(x*x+x*y+y*y)+x/(1+sqr(y))+y/(1+sqr(x));
end;
End;
Var u,v,R:real;
Solution:Boolean;
Begin
Clrscr;
writeln(' : ');
readln(u,v);
Solution:=F(u,v,R)+F(u+v,u*v,R)+
F(sqr(u),sqr(v),R)+F(0.1,0.1,R);
if F(u,v) = false
then writeln(' .')
else writeln(' -> ',R:8:2);
Readkey;
End.
452. . , .
Program Example_452;
Uses crt; {ϳ }
{ (a,b) (c,d)}
Function Len (a,b,c,d:real):real;
Begin
Len:=sqrt(sqr(a-b)+sqr(c-d));
End;
Function Input(var x1,y1,x2,y2,x3,y3:real):boolean;
Var a,b,c:real;
Begin
writeln (' :');
readln (x1,y1);
writeln (' :');
readln (x2,y2);
writeln (' :');
readln (x3,y3);
a:=Len(x1,y1,x2,y2);
b:=Len(x1,y1,x3,y3);
c:=Len(x3,y3,x2,y2);
if (a>=b+c) or (c>=a+b) or (b>=a+c)
then
begin
Len:=False;
writeln ('! :');
end
else Len:=True;
End;
Function S (a,b,c:real):real;
Function P (x,y,z:real):real;
Begin
P:=x+y+z;
End;
Var PP:real;
Begin
PP:=P(x,y,z)/2;
S:=sqrt(PP*(PP-a)*(PP-b)*(PP-c));
End;
Var x11,y11,x12,y12,x13,y13:real;
x21,y21,x22,y22,x23,y23:real;
S1,S2:real;
Flag:Boolean;
Begin
clrscr;
repeat
writeln (' :');
Flag:=Input(x11,y11,x12,y12,x13,y13);
until Flag;
repeat
writeln (' :');
Flag:=Input(x21,y21,x22,y22,x23,y23);
until Flag;
S1:=S(x11,y11,x12,y12,x13,y13);
S2:=S(x21,y21,x22,y22,x23,y23);
if S1>S2
then
begin
writeln (' .');
writeln (' -> ',S1:8:2);
end
else
if S2>S1
then
begin
writeln (' .');
writeln (' -> ',S2:8:2);
end
else
begin
writeln (' .');
writeln (' -> ',S1:8:2);
end;
readkey;
End.
440. , 1 10.
Program Example_440;
Uses crt; {ϳ }
Function Factorial (n:integer):longint;
Begin
if n=0
then Factorial:=1
else Factorial:=Factorial(n-1)*n;
End;
Var Rez:longint;
i:byte;
Begin
Clrscr;
Rez:=0;
For i:=1 to 10 do
begin
Rez:=Rez+Factorial(i);
end;
writeln('Rezultat -> ',Rez);
Readkey;
End.
495. n m :
Program Example_495;
Uses crt; {ϳ }
Function Evklid (n,m:integer):integer;
begin
if n=m
then Evklid:=n
else
if n>m
then Evklid:=Evklid(n-m,m)
else Evklid:=Evklid(n,m-n);
end;
Var x,y:integer;
Begin
Clrscr;
writeln (' : ');
readln (x,y);
writeln (' -> ',Evklid(abs(x),abs(y)));
Readkey;
End.
498. ' n m, :
Program Example_498;
Uses crt; {ϳ }
Function A(n,m:word):word;
Begin
if n=0
then A:=m+1
else
if (n<>0) and (m=0)
then A:=A(n-1,1)
else A:=A(n-1,A(n,m-1));
End;
Var x,y:word;
Begin
Clrscr;
writeln (' : ');
readln (x,y);
writeln (' -> ',A(x,y));
Readkey;
End.
500. n m, m , n , :
Program Example_500;
Uses crt; {ϳ }
Function C (n,m:word):longint;
Begin
if ((m=0) and (n>0)) or ((m=n) and (n>=0))
then C:=1
else
if (m>n) and (n>=0)
then C:=0
else C:=C(n-1,m-1)+C(n-1,m);
End;
Var x,y:word;
Begin
clrscr;
writeln (' : ');
readln(x,y);
writeln ('ʳ ',x,' ',y,' -> ',C(x,y));
readkey;
End.
383. .
Program Example_383;
Uses crt;
Var i:word; {i - }
St:string; {St - }
Begin
Clrscr;
Write (' : ');
Readln (St);
i:=1;
While i<=length(St) do
Begin
While St[i]='.' do Delete(St,i,1);
Insert('.',St,i);
i:=i+1;
End;
Writeln (' : ');
Writeln (St);
Readkey; { }
End.
384(2). , . .
Program Example_384_2;
Uses crt;
Var i:byte; {i - }
St:string; {St - }
Begin
Clrscr;
Write (' : ');
Readln(St);
i:=length(St);
while St[i]<>',' do i:=i-1;
Writeln (' ',i);
Readkey; { }
End.
386. . , .
Program Example_386;
Uses crt;
Var i:byte; {i - }
St,Rez:string; {St - , Rez -
()
}
Begin
Clrscr;
Write (' : ');
Readln (St);
Rez:=''; { }
For i:=length(St) downto 1 do
Rez:= Rez+St[i];
Writeln (' : ');
Writeln (St);
Readkey; { }
End.
387. , .
Program Example_387;
Var i:byte; {i - }
St,Rez:string; {St - , Rez -
()
}
Begin
Clrscr;
Write (' : ');
Readln (St);
Rez:=''; { }
For i:=length(St) downto 1 do
Rez:= Rez+St[i]; { }
If Rez = St
Then Writeln (' .')
Else Writeln (' .');
Readkey; { }
End.
389(2). , "".
Program Example_389;
Var i:byte; {i - }
St:string; {St - }
Count:byte; {Count -
}
Begin
Clrscr;
Write (' : ');
Readln (St);
Count:=0; { }
For i:=1 to length(St)-3 do
If Copy (St,i,3) = ''
Then count:=count+1;
Writeln ('ʳ : ',count);
Readkey; { }
End.
394. . . , . - .
Program Example_394;
Var i:byte; {i - }
St:string; {St - }
count_left, count_right:byte;
{count_left -
, count_right -
}
Begin
Clrscr;
Write (' : ');
Readln(St);
Count_left:=0; { }
Count_right:=0;
For i:=1 to length(St) do
Begin
If St[i] = '('
Then count_left:=count_left+1;
If St[i] = ')'
Then count_right:=count_right+1;
End;
Writeln ('ʳ : ',count_left);
Writeln ('ʳ : ',count_right);
If (count_left=0) or (count_right=0)
Then writeln (' .')
Else
Begin
If count_left = count_right
then Writeln (' .')
else writeln (' .');
end;
Readkey; { }
End.
397. S x y. , x , y.
Program Example_397;
Var i:byte; {i - }
S:string; {S - }
x,y:char; {x,y - }
Begin
Clrscr;
Write (' : ');
Readln (S);
Write (' : ');
Readln (x,y);
For i:=1 to length(S) do
Begin
If S[i] = x
Then delete(S,i,1);
If S[i] = ')'
Then insert(y,S,i);
End;
Writeln (' : ',S);
Readkey; { }
End.
401. - , . .
Program Example_401;
Var i:byte; {i - }
S:string; {S - }
Begin
Clrscr;
Write (' : ');
Readln (S);
For i:=1 to length(S) do
Begin
If (S[i]>=65) and (S[i]<90) or
(S[i]>=97) and (S[i]<122) or
(S[i]>=128) and (S[i]<159) or
(S[i]>=160) and (S[i]<=175) or
(S[i]>=224) and (S[i]<245) or
Then S[i]:=chr(ord(S[i]+1);
If (S[i] = 'Z') or (S[i] = 'z')
Then S[i]:=chr(ord(S[i])-25);
If (S[i] = '')
Then S[]:='';
If (S[i] = '')
Then S[]:='';
End;
Writeln (' : ',S);
Readkey; { }
End.
406(3). . , ( ) , . , . , .
Program Example_406;
Var i:byte; {i - }
S,Slovo:string; {S - , Slovo -
}
count:byte; {count -
}
Begin
Clrscr;
Write (' : ');
Readln (S);
S:=' '+S+' '; {
}
Count:=0; { }
i:=1; { }
while i<=length(S)-1 do
Begin
If (S[i]=' ') and (S[i+1]<>' ')
Then
Begin
Slovo:=''; {
}
While (S[i+1]<>' ') do
Begin
Slovo:=Slovo+S[i+1];
i:=i+1;
End;
If Slovo[1] = Slovo[length(Slovo)]
Then count:=count+1;
End;
i:=i+1;
End;
Writeln ('ʳ : ',count);
Readkey; { }
End.
311(1). [i], i = 1,2,n. .
Program Example_311_1;
Uses crt;
Var N,i:word; {N - , i -
}
:array [1..100] of longint; {A - }
Begin
Clrscr;
Write (' (<100): ');
Readln(N);
For i:=1 to N do
Begin
A[i]:=random(300); {
}
Write([i]:5); {
}
End;
Writeln; {
}
For i:=N downto 1 do
Begin
Write (A[i]:5);
End;
Readkey; { }
End.
311(2). [i], i = 1,2,n. .
Program Example_311_2;
Uses crt;
Var N,i: word; {N - , i -
}
: array [1..100] of longint; {A - }
Begin
Clrscr;
Write (' (<100): ');
Readln (N);
For i:=1 to N do
Begin
A[i]:=random(300); {
}
Write([i]:5); {
}
End;
Writeln; {
}
i:=2;
while i<=N do
Begin
Write(A[i]:5);
i:=i+2; { 2,
}
End;
Readkey; { }
End.
300. , , . ϳ , k1, k2, , kn , . -?
Program Example_300;
Uses crt;
Var N:word; {N - ,
,
}
K:array[1..100] of longint; {K -
, }
i,Sum:longint; {i - , Sum -
,
}
Begin
Randomize; {
""}
Clrscr;
Sum:=0; {
}
Write (' ,
(<=100): ');
Readln(N);
For i:=1 to N do
Begin
K[i]:=random(50)+20; {
20 70}
Write(K[i]:5); {
}
Sum:=Sum+K[i];
End;
Writeln; {
}
Writeln ('ʳ ',Sum);
Readkey; { }
End.
302. . - , ' , - a1, a2, , an? , ' 10 , H .
Program Example_302;
Uses crt;
Var N,H:word; {N - ,
- }
:array[1..100] of longint; { -
}
i,Count_girl,Count_boy:longint;
{i - , Count_girl -
, Count_boy -
}
Begin
Randomize;
Clrscr;
Count_girl:=0;
Count_boy:=0;
Write (' : ');
Readln(H);
Write (' : ');
Readln(N);
For i:=1 to N do
Begin
A[i]:=random(300)-150; {
-150 +150}
Write([i]:5); {
}
if (A[I]<0) and (abs(A[I])>H)
then Count_Boy:=Count_Boy+1;
if (A[I]>0) and (A[I]+10>H)
then Count_Girl:=Count_Girl+1;
End;
Write ('ʳ , - ');
Writeln (Count_Boy);
Write ('ʳ , - ,);
writelnCount_girl);
Readkey; { }
End.
309. . , . ,
123 ==>1 * 10^2 + 2 * 10^1 + 3*10^0.
Program Example_309;
Uses crt;
Var N,i,Count:longint; {N - , i -
, Count -
}
Cifra:array [1..10] of byte; {Cifra -
}
Begin
Clrscr;
Count:=0;
Write (' : ');
Readln (N);
While N>0 do
Begin
Cifra[i]:=N mod 10;
N:=N div 10;
Count:=Count+1;
End;
Write('N = ');
For i:=N downto 1 do
Begin
Write(Cifra[i],'*10^',i-1);
If i>1
Then write(' + '); { ,
"+"}
End;
Readkey; { }
End.
312. a1951, a1952, , a2000 - ( ), 50 . .
Program Example_312;
Uses crt;
Var N,i:longint; {N - , i
- }
A:array[1951..2000] of real; {A -
}
B:array[1951..2000] of real; {B -
}
Begin
Randomize;
Clrscr;
Sum:=0;
For i:=1951 to 2000 do
Begin
A[i]:=random(500)/7; {
}
Write(A[i]:8:2); {
}
Sum:=Sum+K[i];
End;
Sum:=Sum/50; {
}
Writeln;
Writeln (' 1951 - 2000 ..');
For i:=1951 to 2000 do
Begin
B[i]:=Sum - A[i]; {
}
Write(B[i]:8:2); {
}
End;
Readkey; { }
End.
315 (1). n a1, a2, an b1, b2, , bn. c1, c2, , cn, ci = ai + bi.
Program Example_315_1;
Uses crt;
Const N=100;
Type
Masiv = array[1..N] of integer;
Var A,B,C:Masiv; {A,B -
, -
}
i:byte; { - }
Begin
Randomize;
Clrscr;
For i:=1 to N do
Begin
A[i]:=random(200); {
}
Write(A[i]:4); {
}
End;
Writeln;
For i:=1 to N do
Begin
B[i]:=random(200);
Write(B[i]:4);
End;
Writeln;
For i:=1 to N-1 do
Begin
C[i]:=a[i]+b[i];
write(c[i]:4);
End;
Readkey; { }
End.
318 (1). a1, a2, , a30, b1, b2, , b30.
(a1 + b30)(a2 + b29)(a30 + b1).
Program Example_318_1;
Uses crt;
Var A,B: array[1..30] of real;
{A,B - }
i:byte; { - }
Rez:real; {Rez - }
Begin
Randomize;
Clrscr;
Writeln (' :');
For i:=1 to 30 do
Begin
A[i]:=random(200)/7-random*15;
Write(A[i]:8:2);
End;
Writeln (' :');
For i:=1 to 30 do
Begin
B[i]:=random*200-random*100;
Write(B[i]:8:2);
End;
Writeln;
Rez:=1;
{ 1,
}
For i:=1 to 30 do
Begin
Rez:=Rez*(A[i]+B[31-i]);
End;
Writeln (' = ',Rez:8:2);
Readkey; { }
End.
318 (4). a1, a2, , a30, b1, b2, , b30.
Program Example_318_4;
Uses crt;
Var A,B:array[1..30] of real;
{A,B - }
i:byte; { - }
R1,R2:real; {R1 - , R2 -
}
Rez:real; {Rez - }
Begin
Randomize;
Clrscr;
Writeln (' :');
For i:=1 to 30 do
Begin
A[i]:=random(200)/7-random*15;
Write(A[i]:8:2);
End;
Writeln (' :');
For i:=1 to 30 do
Begin
B[i]:=random*200-random*100;
Write(B[i]:8:2);
End;
Writeln;
R1:=0;
R2:=0;
{ 0,
}
For i:=1 to 15 do
Begin
R1:=R1 + (A[2*i-1]+B[2*i-1]);
R2:=R2 + (A[2*i]+B[2*i]);
End;
Rez:=R1/R2;
Writeln (' = ',Rez:8:2);
Readkey; { }
End.
343(2). n, m , A[i,j], i = 1,2,, n; j = 1, 2, , m. , .
Program Example_343_2;
Uses crt;
Const
n = 10;
m = 8;
Var A: array[1..n,1..m] of real;
i,j: integer; {,j - }
Begin
Randomize; {
""}
Clrscr;
For i:=1 to n do
Begin
For j:=1 to m do
begin
A[i,j]:=random*50-random*30;
{
}
Write(A[i,j]:8:2); {
}
end;
writeln;
End;
Writeln (' :');
For i:=1 to n do
begin
Write (A[i,1]:8:2);
end;
Readkey; { }
End.
343(5). n, m , A[i,j], i = 1,2,, n; j = 1, 2, , m. , .
Program Example_343_5;
Uses crt;
Const
n = 10;
Var A: array[1..n,1..n] of real;
i,j: integer; {,j - }
Begin
Randomize;
Clrscr;
{
}
For i:=1 to n do
Begin
For j:=1 to m do
begin
A[i,j]:=random(500)/11-random*30;
Write (A[i,j]:8:2);
end;
writeln;
End;
Readln; { }
Writeln (' :');
For i:=1 to n do
begin
Write (A[i,n-i+1]:8:2);
end;
Readkey; { }
End.
344(2). n, m Aij, Bij, i = 1, 2, , n, j = 1, 2, ,m. Cij, Cij = Aij (I+j) - Bij(i2+j2).
Program Example_344_2;
Uses crt;
Const
n = 8;
m = 15;
Var A,B,C: array[1..n,1..m] of integer;
i,j:word; {,j - }
Begin
Randomize;
Clrscr;
Writeln (' :');
For i:=1 to n do
Begin
For j:=1 to m do
begin
A[i,j]:=random(50)-random(20);
Write (A[i,j]:5);
end;
writeln;
End;
Writeln (' :');
For i:=1 to n do
Begin
For j:=1 to m do
begin
B[i,j]:=random(120)-random(80);
Write (B[i,j]:5);
end;
writeln;
End;
Writeln (' :');
For i:=1 to n do
Begin
For j:=1 to m do
begin
[i,j]:=A