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 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 câu trả lời
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.
Câu hỏi trong lớp
Xem thêm
