Question

用FREE PASCAL 作题 从键盘上读入小写的“pascal”，利用CHR（）和ORD（）函数，输出大写的“PASCAL”。

Answer 1

program Water;
var s:string;
i:longint;
begin
read(s);
for i:=1 to length(s) do
begin
s[i]:=chr(ord(s[i])-32);
end;
writeln(s);
end.

Answer 2

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

Answer 3

十分抱歉， 我是使用C/C++的，对于pascal不敢班门弄斧！