1樓：匿名使用者
var a:longint;
begin
read(a);if a=100 then writeln('1')else writeln('0');
end.
2樓：匿名使用者
var a:string;
begin
readln(a);
if a='100' then writeln('1')else writeln('0');
end.
3樓：匿名使用者
這是我寫的，都對，便於理解，有注釋，希望能幫助你。
vara:integer;
begin
readln(a);
if a=100 then writeln(1)else writeln(0);
end.
要加分哦~
o(∩_∩)o~
4樓：
program sd;
var a:integer;
begin
readln(a);
if a=100 then writeln('1')else writeln('0');
end.
C 簡單程式的編寫，乙個C 簡單程式的編寫
程式編完了，執行除錯通過，你全部copy過去就可以了 include using namespace std void main cout 各位數和為 include void main cout 我的程式是最好的。我給你乙個思路 如果你覺得對你有點啟發你就採納下 想得到個位數 直接用1987 10...
求Pascal源程式（最後加上注釋）如果滿意有追加分數
追加分數？我一分沒見到。為提高效率，沒有用字串操作 整數轉字串 字串轉整數之類的 純粹模擬整數加法。雖長，效率應該高些。program palindrome varf text buf,temp array 1.20 of byte len,cur,step,i longint b boolean ...
求pascal遞迴八皇后程式，加解析，要在free pasc
這是我親手編的.絕不是 c p.program e710 varx array 1.8 of integer a,b,c array 7.16 of boolean i,g integer procedure print var g integer var k,j,h integer begin i...
求一段C 小程式，急求編寫一段簡單的C 小程式！！！
以前做過類似的題，不過當時是簡單處理，忽略 中間的內容 bust 破產的 一文不名的 be clean dead bust 窮得 一文不名you are bust you are bust你破產了 sorry to trouble you 抱歉麻煩你 正學著html語言呢，急求編寫一段簡單的c 小程...
求用簡單語言解釋這個c語言程式，求用簡單語言解釋這個C語言程式
讀入10個數，然後輸出其中的奇數。include int fun const int const a,int n,int const b 找出乙個陣列中的奇數 引數 a,b都是陣列，a 中存原來的數，n表示數字的個數 b用來存找到的奇數 return v 返回v，即返回奇數的個數 int main ...