:
ѳ s t . ң ү ң ұғ ң.
ә :
ң s . t . қ ғ ә ұ. 1<=ң ұғ<=1000
ә ғ :
ң ғң
/
A.in | A.out | |
kazakhstan astana | stan |
Program esepA;
label 1;
var i,j,n,n1,n2,max,q:integer;
s,t,str:string;
f,f1:text;
begin
assign(f,'a.in'); reset(f);
assign(f1,'a.out'); rewrite(f1);
read(f,s,t);
n:=length(s); q:=1;
while q<=n do
begin
if s[q]=' ' then
begin
t:=copy(s,q+1,n-q);
delete(s,q+1,n-q);
goto 1;
end;
q:=q+1;
end;
1: n1:=length(t); max:=0;
for i:=1 to n1 do
for j:=i to n1 do
begin
str:=copy(t,i,j);
if pos(str,s)>1 then
begin
n2:=length(str);
if n2>max then max:=n2;
end;
end;
writeln(f1,max);
close(f);
close(f1);
end.
ң : B.in
ғ ң : B.out
ң ң : B.{c,cpp,pas}
қ : 1
ғ : 64
B : ғғ
ѳ 1- (n+1)- ү . ң , ң.
ә :
ң ү 1<=N<=100000 . ө 1- (n+1)- n ү
ә ғ :
ң ғң
/
B.in | B.out | |
3 2 1 5 6 |
Program esepB;
var i,n,j:integer;
t:boolean;
a:array[1..1000] of integer;
f,f1:text;
begin
assign(f,'b.in'); reset(f);
assign(f1,'b.out'); rewrite(f1);
readln(f,n);
for i:=1 to n do read(f,a[i]);
for i:=1 to n+1 do
begin
t:=false;
for j:=1 to n do
if i=a[j] then t:=true;
if not(t) then writeln(f1,i);
end;
close(f);
close(f1);
end.
ң : C.in
ғ ң : C.out
ң ң : C.{c,cpp,pas}
қ : 1
ғ : 64
C : Әү
қ әү L- R ғ ү ң ң.
ә :
ң L- R , 1 <= L <= R <= 100000000
ә ғ :
ң ғң
/
C.in | C.out | |
11 22 |
Program esepC;
|
|
var l,r,n:integer;
f,f1:text;
begin
assign(f,'c.in'); reset(f);
assign(f1,'c.out'); rewrite(f1);
readln(f,l,r);
n:=r-l-1;
writeln(f1,n);
close(f);
close(f1);
end.
ң : D.in
ғ ң : D.out
ң ң : D.{c,cpp,pas}
қ : 1
ғ : 64
D :
ѳ құ .
F(1)= {1}
F(i)= {F(i-1),i,F(i-1)} ң . N ү ү F(N) ң ұғ ң.
ә :
ң ү 1 <= N <= 1000 1<=x . X F(N)ң ұғ ө .
ә ғ :
ң ғң
/
D.in | D.out | |
3 4 |
Program esepD;
var i,n,x:integer;
s,s1,s2:string;
f,f1:text;
begin
assign(f,'d.in'); reset(f);
assign(f1,'d.out'); rewrite(f1);
readln(f,n,x);
s1:='1';
for i:=2 to n do
begin
str(i,s2);
s:=s1+s2+s1;
s1:=s;
end;
writeln(f1,s[x]);
close(f);
close(f1);
end.
ң : E.in
ғ ң : E.out
ң ң : E.{c,cpp,pas}
қ : 1
ғ : 64
E : ң
ѳ 0 . ұ ң . ѳ , MUL 10-ғ ө, ADD ғ 1- қ. ү 30 ң.
ә :
ң 1 <= <= 1000 .
ә ғ :
ғң.
/
E.in | E.out | |
ADD ADD MUL ADD ADD ADD ADD ADD ADD ADD |
Program esepE;
var i,n,n1,n2,n3,x:integer;
f,f1:text;
begin
assign(f,'e.in'); reset(f);
assign(f1,'e.out'); rewrite(f1);
readln(f,x);
if (x>0) and (x<10) then
for i:=1 to n do writeln(f1,'ADD');
if (x>=100) and (x<1000) then
begin
n1:=x div 100;
n2:=(x div 10) mod 10;
n3:=x mod 10;
for i:=1 to n1 do writeln(f1,'ADD');
writeln(f1,'MUL');
if n2<>0 then
for i:=1 to n2 do writeln(f1,'ADD');
writeln(f1,'MUL');
if n3<>0 then
for i:=1 to n3 do writeln(f1,'ADD')
else writeln(f1,'MUL');
end;
if (x>=10) and (x<100) then
begin
n1:=x div 10;
n2:=x mod 10;
for i:=1 to n1 do writeln(f1,'ADD');
writeln(f1,'MUL');
if n2<>0 then
for i:=1 to n2 do writeln(f1,'ADD');
end;
if x=1000 then
begin
writeln(f1,'ADD');
for i:=1 to 3 do writeln(f1,'MUL');
end;
close(f);
close(f1);
end.
ң : F.in
ғ ң : F.out
ң ң : F.{c,cpp,pas}
қ : 1
ғ : 64
F : ө
ң қ өң ң.
|
|
ә :
ң 1 <= <= 1000000000 .
ә ғ :
ң ғң.
/
F.in | F.out | |
Program esepF;
var i,n,k,x:longint;
a:array[0..1000] of longint;
f,f1:text;
begin
assign(f,'f.in'); reset(f);
assign(f1,'f.out'); rewrite(f1);
readln(f,x);
n:=2; k:=0;
repeat
if x mod n=0 then
begin
x:=x div n;
k:=k+1;
a[k]:=n;
end
else
if n>=3 then n:=n+2 else n:=n+1;
until x=1;
for i:=1 to k do
if a[i]<>a[i-1] then writeln(f1,a[i]);
close(f);
close(f1);
end.
. ғ
ң : .in қ : 2
ғ ң : .out ғ : 64
ѳ ү ұ. Қ ү қ, қ ғ ұ . ѳ ң ңғ ұ ә қ қ ғ N .
Ә ғ ө 1 () қ ө ү . қ ә ө . ғ ғ ңғ ғ ң қ ғғ ң ө . ғ, i - ғ (i-1) -ң K , i -ң ң (k/2)-ң ү ө ң. 4- ғ 3- 5 2 , 6 3 4-ң . қ ғ қ .
ѳң ң ү ң қ .
ң . ө ү N ә M . (1 ≤ N ≤ 109, 1 ≤ M ≤ 109)
ғ ң . ғ ү ү ң ғң.
A. in | A. out |
5 10 | |
5 2 | |
15 3 |
Turbo Pascal ғ:
Program kassa;
Var n,m,k:integer;
f1,f2:text;
Begin
Assign(f1,A.in);
Reset(f1);
Assign(f2,A.out);
Rewrite(f2);
Readln(f1,n,m);
While n>=m do
begin
n:=(n-m)div 2;
k:=k+m;
end;
writeln(f2,k+n);
close(f1); close(f2);
. Қ
ң : .in қ : 2
ғ ң : .out ғ : 64
қ N қ ә қ N қ . ә ә ққ ғ .
Қ ә ә ү ү . қ ү ң қ қ қ. қ, ү қғ . қ қң ә ұ қ қ ү ө қғ .
ѳң ң ә қғ ң қ ү қ .
ң . ү K (1 ≤ K ≤ 10) қ . ұ K қң . Ә ң ү N (1 ≤ N ≤ 100000) қғ қң . ө N ң . ұ ғ - , -қ -ққ (1 ≤ Xi ≤ N, Xi ≠ i).
|
|
ғ ң . ғ ә қ ү ө ү ү қ ү ғ .
B. in | B.out |
2 4 4 1 2 3 | |
5 4 1 2 3 4 |
Turbo Pascal ғ:
program joldi_boiau;
var n,k:integer;
f1,f2:text;
begin
assign(f1,B.in);
reset(f1);
assign(f2,B.out);
rewrite(f2);
readln(f1,k);
while k>=1 do
begin
readln(f1,n);
if n mod 2=0 then n:=n div 2
else n:=(n div 2)+1;
writeln(f2,n);
k:=k-1;
end;
close(f1); close(f2);