Размещено 5 лет назад по предмету
Информатика
от nikitok22
Программа версия 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