满意答案
lafengyiha
2013.10.18
采纳率:47% 等级:12
已帮助:7299人
楼主您好!
1编程:
program t1;
var x,ge,shi,bai:integer; (声明变量)
begin
readln(x); (输入)
ge:=x mod 10; (求个位上的数字)
bai:=x div 100; (求百位上的数字)
shi:=x div 10 -bai*10; (求十位上的数字)
writeln(ge,shi:2,bai:2); (输出)
end.
2编程:
program t2;
type day=(jintianshixingqi1,jintianshixingqi2,jintianshixingqi3,jintianshixingqi4,jintianshixingqi5,jintianshixiuxiri,feifashuju);
var a:integer;
n:day;
begin
readln(a);
if (a<6) and (a>0) then begin n:=chr(a);writeln(n); end
else if (a>5) and (a<7) then begin n:=chr(6);writeln(n); end
else writeln('feifashuju');
end.
26分享举报