Làm giúp em bài này với các pác

[m2mpro]

WRite('Nhap mot so = ');
Readln(so);
Write('Nhao so dao nguoc cua so do = ');
Readln(sò)
WRite('So dao nguoc cua ',so,' la = ',so2, ' dung hay khong tuy nguoi nhap ');

[phuclun]

bó tay cái bài giải.

[tinhocct]

Toi thay tren dien dan nay cac ban rat hay. Dua ra cac loi giai tot!

[bld]

cách code string thì dễ rồi !
quan trọng là cách không dùng string ấy

 read(so);
 n:=0;
repeat
 n:=n*10+so mod 10 ;
 so:=so div 10;
 until so=0;
 write('so dao nguoc la ',n);

[tank304]

Dùng cách string thì em hiểu,nhưng còn ko sử dụng string thì ai giải thích giùm em với,nhất là với câu lạnh VAL ( cách sử dụng và ý nghĩa).

[neiht1992]

program dao_so;
Uses Crt;
var n:longint;
Procedure nhap (Var n:longint);
Begin
Write('Nhap n '); Readln(n);
End;
Function so_dao (n:longint):longint;
Var r,m:longint;
begin
m:=0;
while n>0 do
begin
r:=n mod 10;
n:=n div 10;
m:=m*10+10*r;
end;
So_dao:=m div 10;
End;

Begin
Clrscr;
Nhap(n);
Write('So dao cua so ',n,' la so ',So_dao(n));
Readln;
End.


Xin được chỉ giáo

[trungcxht]

thầy mình cũng cho 1 bài = hàm nhưng khó ở chỗ ko dùng string mới mệt ai co cách ko dùng string ko nha

[No Name]

Program dao_so;
uses crt;
var x,y:longint;
begin
writeln('nhap so can dao: '); readln(x);
y:=0;
repeat
y:=y*10+x mod 10;
x:=x div 10;
until x=0;
writeln('so dao cua so do la: ',y);
readln
end.

[trungboysock]

cái này dễ thôi

function dao(x:integer):integer;
var tg:integer;
begin
    tg:=0;
    while x<>0 do
    begin
        tg:=tg*10 + (x mod 10);
        x:=x div 10;
    end;
    dao:=tg;
end;