1樓：
300-ord( (((ord(pred('a'))+300)/2)<=10) and(odd(ord(succ('b')))) )
=300-ord( (((ord('a')-1+300)/2)<=10) and(odd(ord('c'))) )
=300-ord( (((96+300)/2)<=10) and(odd(99)) )
=300-ord( (198<=10) and(odd(99)) )
=300-ord( false and true )
=300-0=300;
下面如果編譯不錯的話
2 and ((3=3) or (3<7))=2 and true = 0 （整數，位與）或者 true( boolean) ...這個應該會出錯
boolean 與整型不相容！
(8>9) or (9<10) =false or true =true;
(4>5) and (7>8) =false and false =false;
ps：這種東西不要搞這麼複雜
可以一點一點計算
2樓：
就等於三百啊
口算都行
3樓：匿名使用者
300-ord( (((ord(pred('a'))+300)/2)<=10) and(odd(ord(succ('b')))) )=300
4樓：匿名使用者
writeln(a[t]:2);
5樓：匿名使用者
用pascal算一算不就行了嗎
pascal語言程式設計，什麼是pascal語言程式
太麻煩，懶得。其實簡單的迴圈就ok了。program ex var j,k integer beginfor j 0 to 25 do beginfor k j to j do write chr 65 abs k writeln end end.1層的果然是厲害，你是參加四月的pascal程式設計...
pascal語言求Sn a aa aaaaa aaa 有n個a 之值,其中a是數字,a等於2。n由鍵盤輸入
varnum array 0.10000 of integer n,i longint begin readln n for i n downto 1 do num i 2 i for i n downto 1 do begin if num i 10 then begin num i 1 num ...
pascal語言中while語句的問題
不一定要有。例如 while n 20 do inc n 因為while之後只有一個語句 inc n 所以不用begin end 如果有多個語句，例如 while n 20 do begin inc n dec n end 這樣就要有begin end 了。記住這個，如果while後只有一個語句，那...