得了,還是給妳弄出來吧,對這門語言我也不是很熟悉,不過在TP70中通過編譯了哈~~
1.
program TwoNumber;
var a,b:integer;
begin
write('Please Input Two Number,Input the Bigger one first:');
readln(a,b);
writeln('a+b=',a+b);
writeln('a-b=',a-b);
writeln('a*b=',a*b);
writeln('a/b=',a/b);
end.
註意妳要自己控制輸入,否則運行會出錯,嘿嘿~~
2.
program JiShuHe;
var a,sum:integer;
begin
a:=1;
sum:=0;
while(a<100) do
begin
sum:=sum+a;
a:=a+2;
end;
writeln('The Answer is:',sum:1);
writeln('Press Any Key To Quit!');
readln;
end.