Cevaplar

2012-11-07T23:35:31+02:00

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



0
  • Eodev Kullanıcısı
2012-11-08T00:24:42+02:00

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

1 5 1