if 簡單方程 pascal 需要 IF 語句

program p1765;

vara,b:longint;

ch:char;

beginread(a);

read(ch);

read(ch);

read(b);

if ch='+'然後 writeln（a+b） 確定 ch 運算元是什麼，然後執行相應的操作。

else if ch='-' then writeln(a-b)else if ch='*' then writeln(a*b)else if ch='/' then writeln(a div b);

end.

vara,b:longint;

ch:char;

beginread(a);

read(ch);我不知道，您輸入的空格在符號之後，請看原始輸入。

read(ch);

read(b);

if ch='+' then writeln(a+b)else if ch='-' then writeln(a-b)else if ch='*' then writeln(a*b)else if ch='/' then writeln(a div b);

end.

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.先做這麼多，房東先等，謝謝。 希望。

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

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