Nhập vào một xâu f đưa ra độ dài của xâu f đó

0 bình luận về “Nhập vào một xâu f đưa ra độ dài của xâu f đó”

1. 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.

   Bình luận

2. 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.

   Bình luận