Question

viết chương trình nhập vào số n in ra màn hình số đảo ngược của n

Answer 1

program bai1;

var n:real;

begin

write('N= ');readln(n);

writeln('So dao nguoc cua ',n,' la 1/,n);

readln

end.

Answer 2

n là số nguyên hay là phân số

Answer 3

program bai1;

var n,t:longint;

s:real;

begin

write('N= ');readln(n);
t:=n;
while n<>0 do
begin
S:=S*10+n mod 10;
n:=n div 10;
end;
If S=t then writeln('so doi xung')
else writeln('khong doi xung');
readln;
end.

Answer 4

bổ sung thên

writeln('Ket qua la ',s);