入门紧急求助在线等 — 编程爱好者社区

您所在位置：社区首页 — PASCAL语言讨论区 — 入门紧急求助在线等

主题：入门紧急求助在线等

hotsnowman [专家分：0] 发布于 2009-09-11 21:17:00

刚学PASCAL一天，老师布置一个题目，不会做，特来请教各位大侠

键入一个四位数字如1234 输出的时候四位数字的各个数位会单独显示出来
如千位1 百位2 十位3 个位4

怎么做啊

沙发

天天和和 [专家分：1420] 发布于 2009-09-12 13:02:00

是这样吗？

var s:string;
i:integer;
begin
readln(s);
for i:=1 to 4 do writeln(s[i]);
readln();
end.

您尚未登录，请登录后再回复。点此登录或注册