Pascal基础题100道合集.docVIP

Pascal基础题100道合集 ^逸水之寒^サ 1题目：有1、2、3、4个数字，能组成多少个互不相同且无重复数字的三位数？都是多少？ var i,j,a,b,c:integer; begin for i:=1 to 4 do for j:=1 to 4 do for a:=1 to 4 do for b:=1 to 4 do begin if (ij) and (ia) and (ib) and (ja) and (jb) and (ab) then writeln(i,j,a,b); end; end. 2 题目：企业发放的奖金根据利润提成。利润(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，求应发放奖金总数？ var a:longint; s:real; begin readln(a); if a100000 then s:=a*0.1; if a100000