Aspirine22
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
XPEHOMETP
Вот что у меня получилось, только не работает она совсем.
И ксатете, не нужно делать проверку на длину чисел, ты сам её в файле задаешь, и они всегда одинаковые.
Цитата: Lab_F1 #1152
! Mashkov K.V.
! 1102
!
Program Prim1
Implicit NONE
INTEGER A,B,C ar(300), ar2(800), ar3(800),k,N
OPEN(2,FILE='output.txt')
WRITE(2,*) '#1152' ! пример вывода текста на экран
WRITE(2,*) 'Mashkov K.V.'
WRITE(2,*) '1102'
WRITE(2,*)
WRITE(2,*)
OPEN(1,FILE='input.txt')
READ(1,*) A
READ(1,*) (ar(k),k=A,1,-1)
READ(1,*) B
READ(1,*) (ar2(k), k=B,1,-1)
If (A>B) Then
N=A
Else
N=B
End If
Do K=1,N
ar3(K)=ar3(k)+ar(k)+ar2(k)
If(ar3(k)>9) Then
ar3(k+1)=1+ar3(k+1)
ar3(k)=ar3(k)-10
End If
End DO
If (ar3(k+1)>0) Then
k=k+1
End If
WRITE(2,*) k
WRITE(2,10) (ar3(k), k=N,1,-1)
END
|
Наверное я что-то не правильно написпал. Подскажи плиз
|
