Program FNG; Uses crt; Var f: String; i: longint; Begin Clrscr; Write('Nhap f: '); Readln(f); Writeln('Do dai: ',length(f)); For i:=1 to length(f) do f[i]:=Upcase(f[i]); Write('Xau: ',f); Readln End.
program oken; uses crt; var f:string; i:byte; begin clrscr; write('Nhap 1 xau: '); readln(f); writeln('Do dai cua xau: ',length(f)); write('in ra xau in hoa: '); for i:=1 to length(F) do write(upcase(f[i])); readln; end.
