Viết chương trình nhập vào một xâu S. In ra màn hình xâu vừa nhập
a) Đếm số ký tự ở trong xâu
b) In ra màn hình độ dài xâu S
c) Ghép xâu S với “Lop11”. In ra màn hình kết quả
(Mọi người giúp mk với ạ.NGÔN NGỮ PASCAL)
Viết chương trình nhập vào một xâu S. In ra màn hình xâu vừa nhập a) Đếm số ký tự ở trong xâu b) In ra màn hình độ dài xâu S c) Ghép xâu S với “Lop11”
By Gabriella
uses crt;
var s:string;
begin
clrscr;
write(‘Nhap xau S: ‘); read(s);
writeln(‘So ky tu o trong xau: ‘,length(s));
writeln(‘Do dai xau S: ‘,length(s));
writeln(‘Xau ket qua: ‘,s + ‘Lop11’);
readln
end.
uses crt;
var s:string;
BEGIN
clrscr;
write(‘Nhap xau S: ‘);readln(s);
writeln(‘So ki tu trong xau S la: ‘,length(s));
writeln(‘Do dai xau S la: ‘,length(s));
S:=s+’Lop11′;Write(s);
readln
END.