 |
|
Модераторы: volvo877, Snowy, MetalFan |
 
|
|
[Pascal] Цикл с постусловием, Помогите решить 
| ASD_9 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 1 Регистрация: 26.12.2006 Репутация: нет Всего: нет |
Вводится последовательность ненулевых чисел; 0-конец последовательности. Подсчитать, сколько в ней пар соседних равных элементов
|
|||
|
||||
Загрузка ...
| Coder |
|
|||
|
Опытный  Профиль Группа: Участник Сообщений: 733 Регистрация: 13.12.2004 Репутация: нет Всего: 11 |
|
|||
|
||||
| Zero |
|
|||
 Эксперт Профиль Группа: Завсегдатай Сообщений: 2169 Регистрация: 23.10.2004 Где: Россия, г. Рязань Репутация: нет Всего: 24 |
Coder, ты обратил внимание на заголовок темы:
|
|||
|
||||
| Coder |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 733 Регистрация: 13.12.2004 Репутация: нет Всего: 11 |
Zero, когда тему читал понял, при кодировании упустил...
я думаю поменять while (mass[i]<>0) do на repeat ... until (mass[i]<>0); проблем не будет у ASD_9 |
|||
|
||||
| Zero |
|
|||
|
Эксперт Профиль Группа: Завсегдатай Сообщений: 2169 Регистрация: 23.10.2004 Где: Россия, г. Рязань Репутация: нет Всего: 24 |
У циклов с постусловием и предусловием разные условия выхода. |
|||
|
||||
|
|
| Правила форума "Delphi" | |
|
|
Запрещается! 1. Обсуждать и делится взломанными компонентами или программным обеспечением 2. Публиковать ссылки на варез 3. Оффтопить
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема » |
[ Время генерации скрипта: 0.0406 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |