rostr3.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 12 行

var s:string ;
    i:byte;
begin
write('s=');readln(s);
for i := 1 to length(s) do
     s[i]:=upcase(s[i]);
     writeln(s);
     for i := 1 to length(s) do
    if (s[i]>='A')and (s[i]<='z') then s[i]:=chr(ord(s[i])+32);
     writeln(s);
     readln;
     end.