Pagini recente » Cod sursa (job #2336436) | Cod sursa (job #491181) | Cod sursa (job #2040719) | Cod sursa (job #194091) | Cod sursa (job #137420)
Cod sursa(job #137420)
program lampa;
var c1,c2:string;
nr1,nr2:array[1..30271] of byte;
procedure citire;
var f:text;
n,m,i,j,r,n1,n2:longint;
cif:char;
begin
assign(f,'lampa.in');
reset(F);
read(f,n,m);
nr1[1]:=1;n1:=1;
nr2[1]:=2;n2:=1;
r:=1;
for i:=3 to n do
if r=1 then
begin
for j:=1 to n2 do
nr1[n1+j]:=nr2[j];
r:=2;
n1:=n1+n2;
end
else
begin
for j:=1 to n1 do
nr2[n2+j]:=nr1[j];
r:=1;
n2:=n2+n1;
end;
if (r=2) and (m mod n1=0) then
begin
readln(f);
c1:='';c2:='';
if nr1[1]=1 then
begin
for i:=1 to m div n1 do
begin
read(f,cif);
c1:=c1+cif;
end;
for i:=2 to n1 do
if nr1[i]=2 then
for j:=(m div n1)+1 to m do
if (j>m div n1*(i-1)) and ((j<=m div n1*(i))) then
begin
read(f,cif);
c2:=c2+cif;
end else
if (j<m div n1*(i-1)) then
read(f,cif) else
break;
end
else
if nr1[1]=2 then
begin
for i:=1 to m mod n1 do
begin
read(f,cif);
c2:=c2+cif;
end;
for i:=2 to n1 do
if nr1[i]=1 then
for j:=(m div n1)+1 to m do
if (j>m div n1*(i-1)) and ((j<=m div n1*(i))) then
begin
read(f,cif);
c1:=c1+cif;
end else
if (j<m div n1*(i-1)) then
read(f,cif) else
break;
end;
end
else
if (r=1) and (m mod n2=0) then
begin
readln(f);
c1:='';c2:='';
if nr2[1]=1 then
begin
for i:=1 to m div n2 do
begin
read(f,cif);
c1:=c1+cif;
end;
for i:=2 to n2 do
if nr2[i]=2 then
for j:=(m div n2)+1 to m do
if (j>m div n2*(i-1)) and ((j<=m div n2*(i))) then
begin
read(f,cif);
c2:=c2+cif;
end else
if (j<m div n2*(i-1)) then
read(f,cif) else
break;
end
else
if nr2[1]=2 then
begin
for i:=1 to m mod n2 do
begin
read(f,cif);
c2:=c2+cif;
end;
for i:=2 to n2 do
if nr2[i]=1 then
for j:=(m div n2)+1 to m do
if (j>m div n2*(i-1)) and (j<=m div n2*(i)) then
begin
read(f,cif);
c1:=c1+cif;
end else
if (j<m div n2*(i-1)) then
read(f,cif) else
break;
end;
end
else
begin
for i:=1 to trunc(m mod n) do
begin
read(f,cif);
c1:=c1+cif;
end;
for i:=trunc(m mod n)+1 to trunc(m mod n)+trunc(m mod n)+1 do
begin
read(f,cif);
c2:=c2+cif;
end;
end;
close(f);
end;
procedure afisare;
var g:text;
begin
assign(g,'lampa.out');
rewrite(g);
write(g,c1);
writeln(g);
write(g,c2);
close(g);
end;
begin
citire;
afisare;
end.