Viết chương trình nhập vào 2 xâu đưa ra độ dài xâu thứ nhất và in đảo ngược xâu thứ 2 Giúp mình với ạ
2 câu trả lời
program bai_xau;
uses crt;
var s1,s2:string;
i:byte;
begin
clrscr;
write('Nhap xau thu nhat: '); readln(s1);
write('Nhap xau thu hai: '); readln(s2);
writeln('Do dai xau thu nhat la: ',length(s1));
write('Xau dao nguoc cua xau thu hai la: ');
for i:=length(s2) downto 1 do write(s2[i]);
readln;
end.
var s1, s2: string;
i: byte;
begin
Write('nhap xau thu nhat: '); readln(s1);
Write('nhap xau thu hai: '); readln(s2); Writeln('do dai xau thu nhat: ', length(s1));
For i:=length(s2) downto 1 do
Write(s2[i]);
Readln
End.
