@[TCZN](/space/show?uid=108361) Pascal输出bool值是True/False,但C++输出bool值是1/0
by WYXkk @ 2019-05-23 18:51:42
@[WYXkk](/space/show?uid=130151) 那要怎么改pascal的程序呢
by TCZN @ 2019-05-23 18:54:39
把` writeln((s+i) mod (2+i mod 3) > 0);`改成`if (s+i) mod (2+i mod 3) > 0 then writeln(1) else writeln(0);`
by WYXkk @ 2019-05-23 18:59:09
@[TCZN](/space/show?uid=108361)
by WYXkk @ 2019-05-23 19:00:52
@[WYXkk](/space/show?uid=130151) 谢谢大佬
by TCZN @ 2019-05-23 19:01:47
可以直接`ord`啊
by cosmicAC @ 2019-05-23 19:14:19
dalao
by loceaner @ 2019-05-23 19:18:47
```pascal
uses math;
var
i,s:longint;
begin
for i:=21 to 50 do
writeln(((min(i, 25) + i)mod(2 + (i mod 3)) > 0));
end.
```
by wzyzzyzy @ 2019-05-23 21:00:46