rostr4.pas

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

var s:string;
    i,n:integer;
begin
write('s=');readln(s);
for i := 1 to length(s) do
  if ( i mod 2 <>0 ) then s[i]:=upcase(s[i]);
  writeln(s);
  end.