viết chương trình để nhập vào biến tệp A và kiểm tra xem tệp A có độ dài bao nhiêu giúp mình với cảm ơn ạ

0 bình luận về “viết chương trình để nhập vào biến tệp A và kiểm tra xem tệp A có độ dài bao nhiêu giúp mình với cảm ơn ạ”

1. Var a: string;

   Begin

       Write (‘Nhap xau a:’); readln (a);

       Write (‘do dai cua xau la: ‘, length(a));

       Readln

   End.

   Bình luận

2. program bai1;
   Uses crt;
   Var a:string;
   D:integer;
   Begin
   clrscr;
   Write (‘Nhap xau a:’);
   Readln (a);
   D:=length(a);
   Write (‘do dai cua xau la’,D);
   Readln
   End.

   Xin câu trả lời hay nhất ạ!

   Bình luận