Thực hiện chương trình sau : 1. nhập 2 xâu S1, S2 vào bàn phím 2. cho biết độ dài mỗi xâu. Ghi dữ liệu vào tệp trong ổ đĩa E:\KQ.TXT 3. Cho biết xâu S

0 bình luận về “Thực hiện chương trình sau : 1. nhập 2 xâu S1, S2 vào bàn phím 2. cho biết độ dài mỗi xâu. Ghi dữ liệu vào tệp trong ổ đĩa E:\KQ.TXT 3. Cho biết xâu S”

1. uses crt;
   var s1,s2,s : string;
   i, j : integer;
   begin
   assign(input,’KQ.TXT’);
   assign(output,’KQ.OUT’);
   reset(input); rewrite(output);
   readln(input,s1);
   read(input,s2);
   writeln(output,length(s1));
   write(output,length(s2));
   s:=”;
   for i:=length(s1) downto 1 do s:=s+s1[i];
   if s=s2 then write(output,’Hai xau dao nguoc nhau’);
   close(input); close(output);
   readln
   end.

   Bình luận