کد فرترن برنامه ای که عدد n رو میگیره و تعداد ارقام اون عدد رو مشخص میکنه.یکی از راه های تشخیص تعداد رقم های یم عدد اینه که حساب کنیم ببینیم اون عدد از کدوم توان عدد 10 کمتره.مثلا عدد 999 رو بررسی میکنیم:
999<(10**3)
عدد 999 از توان 3 عدد 10 که 1000 میشه کوکتره.با همین روش میشه تعداد ارقام رو متوجه شد
--------------------------------------------------------------------------------------------------------------------------------------------
• PROGRAM ragham
• IMPLICIT NONE
• INTEGER::n,i
• READ*,n
• PRINT*
• i=1
• DO
• IF (n<(10**i)) THEN
• EXIT
• ELSE
• i=i+1
• END IF
• END DO
• PRINT*,i
• END
