uses crt; var S:string[25]; i:byte; begin clrscr; writeln('Input:');readln(s); writeln('Output:'); for i:=length(s) downto 1 do writeln(s[i]); readln; end.
Câu 2:
uses crt; var S:string; begin clrscr; writeln('Input:');readln(s); writeln('Output:'); writeln(upcase(s)); readln; end.
