lập trình nhập vào số nguyên dương n (10
lập trình nhập vào số nguyên dương n (10
By Vivian
By Vivian
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.
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.