Viết chương trình nhập vào một xâu S và đưa ra độ dài của xâu
2 câu trả lời
program oken;
uses crt;
var s: string;
begin
clrscr;
write('Nhap xau: '); readln(s);
writeln('Xau vua nhap: ',s);
writeln('Do dai cua xau: ',length(s));
readln;
end.
var s: string;
Begin
Write('nhap xau: '); readln(s);
Write('do dai xau la ', length(s));
Readln
End.
