Viết ct nhập hai xau s1 s2
+Ghép xau s1 vào xau s2
+ hiển thị nội dung và độ dài xau vừa nhập
+đếm trong xau vừa ghép có bao nhiêu chứ cái
Viết ct nhập hai xau s1 s2 +Ghép xau s1 vào xau s2 + hiển thị nội dung và độ dài xau vừa nhập +đếm trong xau vừa ghép có bao nhiêu chứ cái
By Nevaeh
uses crt;
var s,s1,s2:string; i,d:longint;
begin
clrscr;
write(‘Nhap xau 1: ‘); readln(s1);
write(‘Nhap xau 2: ‘); readln(s2);
s:=s1 + s2;
writeln(‘a) Ghep: ‘,s);
writeln(‘b) Noi dung xau ‘,s1,’: ‘,s1);
writeln(‘ Noi dung xau ‘,s2,’: ‘,s2);
writeln(‘ Do dai xau ‘,s1,’: ‘,length(s1));
writeln(‘ Do dai xau ‘,s2,’: ‘,length(s2));
for i:=1 to length(s) do
if (s[i] in [‘A’..’Z’]) or (s[i] in [‘a’..’z’]) then inc(d);
writeln(‘c) Ket qua: ‘,d);
readln
end.
program ct;
uses crt;
var x,s1,s2:string;
i,d:integer;
begin
clrscr;
write(‘nhap xau thu nhat:’);readln(s1);
write(‘nhap xau thu hai:’);readln(s2);
x:=s1+’ ‘+s2;
writeln(‘xau vua ghep la:’,x);
for i:=1 to length(x) do
if (‘A'<=s1[i]) and (s1[i]<=’Z’) then inc(d);
writeln(‘co’,d,’chu cai’);
readln
end.