Viết chương trình nhập vào xâu S từ bàn phím có độ dài tối đa là 50 kí tự a. Thực hiện xóa đi kí tự đầu tiên của xâu S b. Thực hiện tính độ dài của xâ

0 bình luận về “Viết chương trình nhập vào xâu S từ bàn phím có độ dài tối đa là 50 kí tự a. Thực hiện xóa đi kí tự đầu tiên của xâu S b. Thực hiện tính độ dài của xâ”

1. Uses crt;

   var s: string[50];

   begin 

   clrscr;

   write(‘nhap xau: ‘);  readln(s);

   delete(s,1,1);

   writeln(s);

   write(length(s));

   readln;

   end.

   Bình luận

2. Uses crt;

    string[50];

   begin 

   clrscr; write( nhập xâu );  readeln(s);

   delete(s,1,1);

   writeln(s);

   write(longth(s));

   readeln;

   end.

   Bình luận