Question

用pascal语言中的if语句解决一下几个问题。

1.输入整数a和b，如果a 能被b整除，就输出算式和商，否则输出算式、整数商和余数。

2.输入两个字符，若这两个字符之差为偶数，则输出它们的后继字符，否则输出它们的前趋字符。这里的前趋和后继是指输入的两个字符中，较小字符前面的和较大字符后面的那个字符。

3.输入任意大小的三个整数，判断其中是否有两个奇数一个偶数。若是，则输出“YES”，不是则输出“NOT” （要求用条件表达式进行判断，使用if语句）

4.输入某个点A的平面坐标（x,y)，判断（输出）A点是在圆内、圆外还是在圆周上，其中圆心从标为(2,2)，半径为1 。

5、题目：企业发放的奖金根据利润提成。利润(I)低于或等于10万元时，奖金可提10%；利润高于10万元，低于20万元时，低于10万元的部分按10%提成，高于10万元的部分，可可提成7.5%；20万到40万之间时，高于20万元的部分，可提成5%；40万到60万之间时高于40万元的部分，可提成3%；60万到100万之间时，高于60万元的部分，可提成1.5%，高于100万元时，超过100万元的部分按1%提成，从键盘输入当月利润I，求应发放奖金总数？

Answer 1

1.要确认A能不能被B整除，只要A除B的余数=0，那么他就能被B整除。否则就输出A，除号，B，等号，商（用整除函数DIV），再用A-B*商。
程序：
Var
a,b:integer;
Begin
Readln(a,b);
If a mod b=0 then
Write(a,'/',b,'=',a div b)
Else
Write(a,'/',b,'=',a div b,'......',a-b*(a div b));
End.
3.先读入这三个数，然后分别看看是不是偶数，是就偶数计数器加1，然后统计。
程序：
Var
a,b,c:integer;
a1,b1,c1:boolean;
Begin
Readln(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')
Else
Write('NO');
End.
4.圆内的范围是(2,2),圆上的范围是(2,1)或（1，2），圆外就是除了这两种情况。
Var
i,j:integer;
Begin
Readln(i,j);
If (i=2) and (j=2) then
Write('In')
Else
If ((i=1) and (j=2))or((i=2)and(j=1))then
Write('On')
Else
Write('out');
End.
先做这么多，楼主先等等，谢。望采纳

追问

最后一题就随便啦，不过我想问下“小数除”是什么意思，比如：a/b（小数除），请教下，不过还是很感谢你啦，采纳你的答案

Answer 2

一、
var a,b,c:integer;
begin
readln(a,b);
if a mod b=0 then writeln(a,'/',b,'=',a mod b)
else writeln(a,'/',b,'=',a div b,'+',a mod b);
end.

Answer 3

一下问这么多好烦啊！先说第一个，除号左右如果有一个是浮点型一个是整型得到的就是浮点型。两边都是整型得到的是整型，两边都是浮点型得到的还是浮点型。浮点型和整型有时是不同的。要看实际要求。题中定义的是浮点型。