"viết chương trình nhập vào số tự nhiên có hai chữ số và xuất ra số đảo ngược" giải theo cách của lớp 8 nhé tks

2 câu trả lời

var s,s1:string;

     i:byte;

begin

write('Nhap xau: '); readln(s);

for i:=length(s) downto 1 do

s1:=s1+s[i];

write('Xau dao nguoc la: ',s1);

readln;

end.

(nếu ai chưa có nhóm thì tham gia này)

Program BTH;
uses crt;
var n,a,b:longint;
Begin
        clrscr;
        write('Nhap n: ');readln(n);
        a:= n mod 10;
        b:= n div 10;
        write('So dao nguoc la: ',a,b);
        readln;
end