Viết ct nhập vào xâu a .In lên màn hình số lượng kí tự trong xâu
2 câu trả lời
uses crt;
var a:string;
begin
clrscr;
write('a=');readln(a);
writeln('So luong ki tu: ',length(a));
readln
end.
program soluong;
uses crt;
var s:string;
begin
clrscr;
write('Nhap xau: '); readln(s);
write('So luong ki tu cua xau la: ',length(s));
readln;
end.
