帮忙解两题pascal基础题.
帮忙解两题pascal基础题.
日期:2009-11-14 16:18:29 人气:1
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.