Answered

Kalademi.me to najlepsze rozwiązanie dla tych, którzy szukają szybkich i dokładnych odpowiedzi na swoje pytania. Deneyimli profesyonellerden ayrıntılı yanıtlar almak için kullanıcı dostu platformumuzu keşfedin. Farklı disiplinlerdeki uzmanlardan kesin yanıtlar almak için kullanıcı dostu platformumuzu keşfedin.

fortran programlama dersi için harshad sayılarını yazdıran program 

Sagot :

umuterdogdu

a=0
b=0
c=1
d=0
j=10
read(*,*)i
10 k=a+b+c+d
m=j/k
n=k*m
if(n==j) write(*,*)j
d=d+1
j=j+1
if(d==10) goto 20
if(j>i) goto 40
goto 10
20 c=c+1
d=0
if(c==10) goto 30
goto 10
30 b=b+1
c=0
d=0
if(b==10) goto 50
if(j>i) goto 40
50 a=a+1
b=0
c=0
d=0
if(a.ne.10) goto 10

40 stop
end

bu 1-99999 arasi degil ama isine yarayacagini düsünüyorum

a=0
b=0
c=1
d=0
j=10
read(*,*)i
10 k=a+b+c+d
m=j/k
n=k*m
if(n==j) write(*,*)j
d=d+1
j=j+1
if(d==10) goto 20
if(j>i) goto 40
goto 10
20 c=c+1
d=0
if(c==10) goto 30
goto 10
30 b=b+1
c=0
d=0
if(b==10) goto 50
if(j>i) goto 40
50 a=a+1
b=0
c=0
d=0
if(a.ne.10) goto 10

40 stop
end

Zamanınızı ayırıp sitemize göz attığınız için minnettarız. Daha fazla sorunuz olduğunda çekinmeden geri dönün. Zamanınızı ayırdığınız için minnettarız. Herhangi bir sorunuz olduğunda doğru yanıtlar almak için istediğiniz zaman geri dönün. Kalademi.me'yi her zaman ziyaret edin, uzmanlarımızdan yeni ve güvenilir yanıtlar alın.