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)
2 câu trả lời
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.
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.
