Viết chương trình nhập vào một xâu S. In ra màn hình xâu vừa nhập a) Đếm số ký tự ở trong xâu b) In ra màn hình độ dài xâu S c) Ghép xâu S với “Lop11”

0 bình luận về “Viết chương trình nhập vào một xâu S. In ra màn hình xâu vừa nhập a) Đếm số ký tự ở trong xâu b) In ra màn hình độ dài xâu S c) Ghép xâu S với “Lop11””

1. uses crt;
   var s:string;
   begin
         clrscr;
         write(‘Nhap xau S: ‘); read(s);
         writeln(‘So ky tu o trong xau: ‘,length(s));
         writeln(‘Do dai xau S: ‘,length(s));
         writeln(‘Xau ket qua: ‘,s + ‘Lop11’);
         readln
   end.

   Bình luận

2. uses crt;
   var s:string;
   BEGIN
   clrscr;
   write(‘Nhap xau S: ‘);readln(s);
   writeln(‘So ki tu trong xau S la: ‘,length(s));
   writeln(‘Do dai xau S la: ‘,length(s));
   S:=s+’Lop11′;Write(s);
   readln
   END.

   Bình luận