| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Fortran > помогите исправить код |
| Автор: GreforyBx 4.4.2016, 21:00 |
| Текст задачи: Изменить текст, чтобы слова разделялись ровно пробелом Character str*30 integer l,i,k write(*,*)'vvedite ishod str' read(*,'(A30)') str !str=Adjustl(str) l=len_trim(str) Do i=1,l if(str(i:i)==' '.and.str(i+1:i+1)==' ') then do k=i+1,l-1 str(k:k)=str(k+1:k+1) str(l:l)='' end do end if end do write(*,*)'izmen str' write(*,'(A30)')str end |