lập trình nhập vào số nguyên dương n (10<n<32767) đưa ra màn hình số nguyên n viết theo thứ tự ngược lại
2 câu trả lời
program daoso;
uses crt;
var n:longint;
i:byte;
s,dao:string[5];
begin
clrscr;
repeat
write('nhap n: ');
readln(n);
if (n<10) or (n>32767) then writeln('10<n<32767. Nhap lai!');
until (n>10) and (n<32767);
str(n,s);
dao:='';
for i:=length(s) downto 1 do
dao:=dao+s[i];
write('So dao cua ',n,' la: ',dao);
readln
end.
uses crt;
var n,i:longint; s:string;
begin
clrscr;
write('n=');readln(n);
str(n,s);
for i:=length(s) downto 1 do write(s[i]);
readln
end.
