@[baoyu](/space/show?uid=93465) 就是要执行的呀
by TCZN @ 2019-05-02 16:06:11
@[TCZN](/space/show?uid=108361) 这个缩进,不知道仅仅是luogu的原因还是...
by Limit @ 2019-05-02 16:08:15
居然是一个空格
by Limit @ 2019-05-02 16:08:33
@[Sxy_Limit](/space/show?uid=86625) 什么意思
by TCZN @ 2019-05-02 16:10:25
@[TCZN](/space/show?uid=108361)
```
while n<>0 do
begin
a[i]:=a[i] div 2;
b[i]:=b[i] div 2;
if (a[i]<g) and (b[i]<g) and (a[i]<>b[i]) then
begin
writeln('Too Simple');
break;
end;
if (a[i]<g) and (b[i]<g) and (a[i]=b[i]) then
begin
writeln('Sometimes Naive');
break;
end;
end;
```
您的这个循环里面不是还要加一个判断吗
`if (a[i]<g) and (b[i]<g) and ((a[i]<l) or (b[i]<l)) then ...`
by Celestial_Scarlet @ 2019-05-02 16:11:02
完了,缩进炸了
就这样吧(
顺便美化一下我自己的代码框:
```
var
n,a,b,i,l,g:longint;
begin
readln(n,l,g);
for i:=1 to n do
begin
read(a,b);
while (a>g) or (b>g) do
begin
a:=a>>1;
b:=b>>1;
end;
if (a<l) or (b<l) then writeln('Too Young')
else if (a<>b) then writeln('Too Simple')
else writeln('Sometimes Naive');
end;
end.
```
by Celestial_Scarlet @ 2019-05-02 16:11:52
随便截一段
```pascal
read(n,l,g);
我是一个空格for i:=1 to n do
我是两个空格read(a[i],b[i]);
我是三个空格for i:=1 to n do
```
以前的写pascal时
```pascal
read(n,l,g);
我是两个空格for i:=1 to n do
我是四个空格read(a[i],b[i]);
我是六个空格for i:=1 to n do
```
by Limit @ 2019-05-02 16:12:27
@[baoyu](/space/show?uid=93465) 哦哦
by TCZN @ 2019-05-02 16:12:55
所以这是luogu的原因吗
by Limit @ 2019-05-02 16:13:18
@[Sxy_Limit](/space/show?uid=86625) 为什么你们写pascal代码都崇尚倾斜美啊,或者说我是邪教吗(
by Celestial_Scarlet @ 2019-05-02 16:13:20