Мәліметтерді енгізу форматы
Кіріс файлдың жекеше жолында бір бүтін сан жазылған- N(1,=N<100, N-тақ сан).
Мәліметтерді шығару форматы
Шығыс файылдың N жолда N бүтін саны жазу керек- N мөлшерлі спираль. Сандар аралары пробелмен бөлінген болу керек.
Мысал
E.in
|
E. out
|
1
|
1
|
3
|
5 4 3
6 1 2
7 8 9
|
5
|
17 16 15 14 13
18 5 4 3 12
19 6 1 2 11
20 7 8 9 10
21 22 23 24 25
|
uses crt;
var w,q,o,i,j,k,l,m,n:longint;
a:array[1..100,1..100]of longint;
b:array[1..100,1..100]of boolean;
procedure aaa(l:longint);
begin
if(n>0)then begin
inc(m);
if(m=1)then begin
for i:=1 to n do begin
if(b[l,i]=false)then begin
b[l,i]:=true;
a[l,i]:=o;
dec(o);
end;
end;
aaa(n);
end else
if(m=2)then begin
for i:=1 to n do
begin
if(b[i,l]=false)then begin
b[i,l]:=true;
a[i,l]:=o;dec(o);
end;
end;
aaa(n);
end else
if(m=3)then begin
for i:=n downto 1 do
if(b[l,i]=false)then begin
a[l,i]:=o;dec(o);
b[l,i]:=true;
end;
inc(w);
aaa(w);
end else
if(m=4)then
begin
for i:=n downto 1 do
if(b[i,l]=false)then begin
b[i,l]:=true;a[i,l]:=o;dec(o);
end;
m:=0;
if(m=0)then begin inc(k);dec(n);end;
aaa(k);
end;
end;end;
begin
assign(input,'e.in');reset(input);
assign(output,'e.out');rewrite(output);
w:=0;
readln(n);q:=n;k:=1;
m:=0;o:=sqr(n);
fillchar(a,sizeof(a),0);
fillchar(b,sizeof(b),false);
aaa(1);
for i:=q downto 1 do
begin for j:=q downto 1 do write(a[i,j],' ');writeln;end;
close(input);close(output);
end.
F есебі. Дәрежесі
Енгізу файлының аты: F.in
Шығару файылының аты: F. Out
Есептің жауабы файылының аты:F. pas
Уақыт шектеу: 2 секунд
Жадыға шектеу: 64 мегабайт
Сіздерге А,В және С бүтін сандары берілген. АВ(А-нің В дәрежесі) С-ға бөлуінің қалдығы шығарыңыздар. Назарды ықылас білдіріңіздер:
(Х-Y) mod Z=((X mod Z)* (Y mod Z)) mod Z
(Х-Y) mod Z=((X mod Z)+ (Y mod Z)) mod Z
Достарыңызбен бөлісу: |
