Giải giúp em với ạ em đg cần gấp Nhập vào xâu dài không quá 50 kí tự.viết chương trình tính bảo và in ra màn hình số lượng kí tự có trong xâu
2 câu trả lời
Program Count;
Var St: String;
Begin
Readln(St);
Write(length(St));
Readln
End.
uses crt;
var s : string[50]; d : byte;
begin
clrscr;
write('Nhap xau : '); readln(s);
d := length(s);
write('Xau co ', d ,' ki tu');
readln
end.
