tümü

fortran bilen piçler bi bakın

  1. 1.
    0
    WRITE(*,*)'SAYIGIR:'
    READ(*,*)N
    K=N
    L=1
    2 IF(N.LT.10) THEN
    L=L
    GOTO 1
    ELSE
    N=N/10
    L=L+1
    GOTO 2
    END IF
    1 DO 3 I=1,L
    M=K-(K/10)*10
    K=K/10
    WRITE(*,*)'BASAMAK:',I,M
    3 CONTINUE
    STOP
    END


    HATA NE BURDAKi YARDIM EDiN
    ···
    #35126140 şikayet
   tümünü göster