کد فرترن برنامه ای که ای عددی رو میگیره و اون رو به صورت برعکس نمایش میده
مثلا 12345 رو به صورت 54321 نشون میده
PROGRAM makoos
IMPLICIT NONE
INTEGER::n,b,p,i,s,k,j
INTEGER,ALLOCATABLE::a(:)
READ*,n
p=1
DO
IF (n<10**p) THEN
EXIT
ELSE
p=p+1
END IF
END DO
ALLOCATE (a(p))
DO i=1,p
a(i)=MOD(n,10)
n=INT(n/10)
END DO
s=0
k=p
DO j=0,p-1
t=a(k)*(10**j)
s=s+t
k=k-1
END DO
PRINT*,s
END PROGRAM