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 ạ
2 câu trả lời
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 ạ!
Var a: string;
Begin
Write ('Nhap xau a:'); readln (a);
Write ('do dai cua xau la: ', length(a));
Readln
End.
