1樓：匿名使用者
1.要確認a能不能被b整除，只要a除b的餘數=0，那麼他就能被b整除。否則就輸出a，除號，b，等號，商（用整除函式div），再用a-b*商。
程式：var
a,b:integer;
beginreadln(a,b);
if a mod b=0 then
write(a,'/b,'=a div b)
elsewrite(a,'/b,'=a div b,'.a-b*(a div b));
先讀入這三個數，然後分別看看是不是偶數，是就偶數計數器加1，然後統計。
程式：var
a,b,c:integer;
a1,b1,c1:boolean;
beginreadln(a,b,c);
a1:=a mod 2=0;
b1:=b mod 2=0;
c1:=c mod 2=0;
if ((a1 xor b1) and c1) or ((a1 xor c1) and b1) or ((b1 xor c1) and a1)then
write('yes')
elsewrite('no');
圓內的範圍是(2,2),圓上的範圍是(2,1)或（1，2），圓外就是除了這兩種情況。
vari,j:integer;
beginreadln(i,j);
if (i=2) and (j=2) then
write('in')
elseif ((i=1) and (j=2))or((i=2)and(j=1))then
write('on')
elsewrite('out');
end.先做這麼多，樓主先等等，謝。望。
2樓：秋風蕭蕭北風吹
基本上看來是沒有問題的，但是這個程式最多隻能做2-6個數字呀。如果採用for語句就可以輸入很多數字啦~~
pascal問題，請用while語句做出，謝謝
第1題 program t1 vari,m integer begin i 6 m 91 因為第7天離山頂只有91米，不屬於迴圈中，所以m 6，所以只有六天，所以i 6 while i 1 do 使用遞減的方法做begin m m 24 2 按條件計算mdec i end write m 咦，答案是...
Pascal問題 矩陣乘法，Pascal 矩陣乘法的完整過程？
vara,b,c,i,j,k longint x,y,f array 0.2000,0.2000 of longint begin read a read b read c for i 1 to a do for j 1 to b do read x i,j for i 1 to b do for ...
pascal的迴圈問題
for i 1 to n 限定的數的分母 do接下來說思路吧。總之分母是i，分子就是i 1，除一除就行了。然後把每次除得的商累加到一個變數中去。能明白吧？varn,i longint ans double begin read n ans 1 for i 2 to n do ans ans i 1 ...