Программа версия 2.0
Program lab2 Integer I,J,N,UM Integer Y(100) READ *, N CALL CHISLO(N,Y,100,L,UM) PRINT *,UM PAUSE END SUBROUTINE CHISLO(B,H,O,L,SUM) INTEGER B,L,SUM,O INTEGER H(O) DO I=1,B H(I)=I ENDDO SUM=0 DO J=1,B L=1 DO I=1,J L=L*I ENDDO SUM=SUM+L ENDDO PRINT 99 PRINT 100,(H(I),I=1,B) 99 FORMAT ('.....',B('....')) 100 FORMAT (/':',1X,'I',1X,':',20(1X,I1,1X,':')) END
Приложения:
![](https://st.uroker.com/files/c62/c62e02bcc6bd782478713589f9a50e9f.png)
Аноним:
Программу нужно давать полностью
Ответы
Ответ дал:
0
Program lab2
Integer I,J,N,UM
Integer Y(100)
READ *,N
CALL CHISLO(N,Y,100,L,UM)
PRINT *,UM
STOP
END
SUBROUTINE CHISLO(B,H,O,L,SUM)
INTEGER B,L,SUM,O
INTEGER H(O)
DO I=1,B
H(I)=I
ENDDO
SUM=0
DO J=1,B
L=1
DO I=1,J
L=L*I
ENDDO
SUM=SUM+L
ENDDO
PRINT 99,'.....',REPEAT('....',B)
PRINT 100,(H(I),I=1,B)
99 FORMAT (A,A)
100 FORMAT (/':',1X,'I',1X,':',20(1X,I1,1X,':'))
END
Integer I,J,N,UM
Integer Y(100)
READ *,N
CALL CHISLO(N,Y,100,L,UM)
PRINT *,UM
STOP
END
SUBROUTINE CHISLO(B,H,O,L,SUM)
INTEGER B,L,SUM,O
INTEGER H(O)
DO I=1,B
H(I)=I
ENDDO
SUM=0
DO J=1,B
L=1
DO I=1,J
L=L*I
ENDDO
SUM=SUM+L
ENDDO
PRINT 99,'.....',REPEAT('....',B)
PRINT 100,(H(I),I=1,B)
99 FORMAT (A,A)
100 FORMAT (/':',1X,'I',1X,':',20(1X,I1,1X,':'))
END
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад