1. nhập 2 xâu S1, S2 vào bàn phím 3. Cho biết xâu S2 có phải là đảo ngược của xâu S1 không. Ghi kết quả vào tệp đã cho ???? Giúp mk vs huhu

0 bình luận về “1. nhập 2 xâu S1, S2 vào bàn phím 3. Cho biết xâu S2 có phải là đảo ngược của xâu S1 không. Ghi kết quả vào tệp đã cho ???? Giúp mk vs huhu”

1. var s1,s2,s:string;f:text;i:longint;

   begin 

   assign(f,’tepcuaban’);rewrite(f);

   read(s1);read(s2);

   for i:=length(s2) downto  1 do s:=s+s2[i];

   if s1=s then write(f,’CO’) else write(f,’KHONG’);

   end.

   Bình luận

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