Viết chương trình nhập vào một xâu sau đó in ra màn hình 20/07/2021 Bởi Reese Viết chương trình nhập vào một xâu sau đó in ra màn hình
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 Bình luận
var s:string;
begin
write(‘nhap xau ‘); read(s);
write(s); readln end.
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