|
|
|
GreforyBx |
|
|||
Новичок Профиль Группа: Участник Сообщений: 1 Регистрация: 4.4.2016 Репутация: нет Всего: нет |
Текст задачи: Изменить текст, чтобы слова разделялись ровно пробелом
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 |
|||
|
||||
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Fortran | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |