求一道PASCAL计算机编程题答案!!用if嵌套语句做!拜托拜托!

来源:百度知道 编辑:UC知道 时间:2024/06/20 04:12:28
月收入t的所得税率为r如下:
月收入t 税率r
t<100 则r=0
1000>=800 则r=5%
1500>t>=1000 则r=10%
3000>t>=1500 则r=15%
t>3000 则r=20%
编写个程序,输入某人的月收入,输出所得税后的实际收入。
用if嵌套语句做,拜托拜托!!!!!!!!!!!!!!

首先,我想说你这题目有问题。如果t<100,没有个人所得税,t≥800要缴纳5%的个人所得税,那100~799之间怎么办?题目应改为t<800,r=0.
program zlf;
var t:integer;
begin
if t<800 then writeln(t)
else if (t<1000)and(t>=800) then writeln(0.95*t)
else if (t<1500)and(t>=1000) then writeln(0.9*t)
else writeln(0.8*t);
end.