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

0 bình luận về “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”

1. 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.

   Bình luận

2. 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.

   Bình luận