Viết chương trình nhập vào gồm kì từ và sổ hiện thì lên màn hình xâu kí tự và độ dài xâu
2 câu trả lời
uses crt;
var s,s1:string;
i,dem:byte;
begin
clrscr;
write('Nhap s: '); readln(s);
for i:=1 to length(s) do
if ('A'<=s[i]) and ('z'>=s[i]) then s1:=s1+s[i];
write('Xau ki tu la: ',s1);
writeln;
dem:=length(s1);
write('Do dai xau la: ',dem);
readln
end.
program bai_giai;
uses crt;
var s:string;
begin
clrscr;
readln(s);
writeln(s);
writeln(length(s));
readln;
end.
Câu hỏi trong lớp
Xem thêm
