Тема
:
Задача обработки строк
Показать сообщение отдельно
10.12.2014, 20:55
#
6
(
permalink
)
Евгений
Member
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация:
13090
Надо изменить строку:
While s[i]<>' ' do
на
While (s[i]<>' ') and (i<=Length(s)) do
если совсем ничего не ввести, то выдаст ошибку
Последний раз редактировалось Евгений; 10.12.2014 в
21:01
Евгений
Посмотреть профиль
Отправить личное сообщение для Евгений
Найти ещё сообщения от Евгений
Ads
Яндекс
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация:
55070