BÀI 8: Viết chương trình nhập 1 xâu từ bàn phím. Đưa ra màn hình xâu đó và độ dài của xâu
2 câu trả lời
uses crt;
var
s:string;
begin
clrscr;
write('Nhap xau:');readln(s);
writeln('Xau vua nhap: ',s);
writeln('Do dai xau: ')
writeln(length(s));
readln;
end.
uses crt;
var
s:string;
begin
clrscr;
write('Nhap xau:');readln(s);
writeln('Xau vua nhap: ',s);
writeln('Do dai xau: ')
writeln(length(s));
readln;
end.
