以下是 pascal 語言中 if 語句需要解決的幾個問題。

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')

else write('out');

end.先做這麼多，房東先等，謝謝。 希望。

一次問這麼多問題很煩人！ 我們先來談談第乙個，如果其中乙個分號是浮點數，另乙個是整數，則結果為浮點數。 如果兩邊都是整數，則它們將是整數，如果兩邊都是浮點數，則它們仍然是浮點數。

浮點數和整數有時是不同的。 這取決於實際要求。 問題中的定義是浮點型。

它應該寫成這樣：

if (47a) then ..不會有問題。

pascal 的 if 有 2 種基本格式。

1.如果是單行指令句：

if 條件，則為行語句;

2.如果是多行指令句。

如果條件那麼

開始語句 1;

報表2;陳述 n;

end;

多個變數？ 陳述。

如果條件，則開始

在中間寫你想寫多少就寫多少。

end;

基本上沒有問題，但是這個程式最多只能做2-6個數字。 如果使用 for 語句，則可以輸入大量數字

語句型別：順序、分支、迴圈。

程式的執行完全決定了你如何設計它。

當分支巢狀時，在可能出現歧義的地方新增開始。end。

readln(a,b,c);

if a>b then begin t:=a; a:=b; b:=t end;

if a>c then begin t:=a; a:=c; c:=t end;

if b>c then begin t:=b; b:=c; c:=t end;

執行上述語句後，確保 a<=b<=c

看程式的第一行，在結尾後加乙個逗號，所以程式如下：var

a,b,c:,tlongint;

beginread(a,b,c);

if (aif (aif (bwriteln(a,' ',b,' ',c);

end.是的，不，請問。