用pascal语言中的if语句解决一下几个问题。1.输入整数a和b，如果a能被b整除，就输出算式和商，否则输出算式、整数商和余数。2.输入两个字符，若这两个字符之差为偶数，则输出它们的后

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...