返回首页

帮忙解两题pascal基础题.

发布时间：2009-11-14 16:18:29

var s:string;i:longint; begin readln(s); for i:=1 to length(s) do writeln(chr(ord(s[i]-32))); end. var a:real; begin readln(a);writeln(a); writeln(trunc(a); writeln(a-trunc(a)); writeln(round(a)); end.

相关内容

最新内容

← 上一条：帮我解决一个pascal题 下一条：pascal语言的问题，聪明人的问题 →

热门栏目