| Вопрос: Помогите решить задачу очень надо плиз | Добавлено: 22.01.08 21:26 |
Автор вопроса:  OlejKa | ICQ: 204546 |
| сделать с помощью цикла do ... loop. Условие дана последовательность целых случайнх чисел из [-100;100] Найти первое нечетное число и выяснить будет ли оно 2 х разрядным ну и вывести |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  bi-lya Вопросов: 1 Ответов: 125 |
Профиль | | #1 | Добавлено: 23.01.08 05:03 |
|
Dim b As Integer
a = Array(-100, 96, 4, -88, 57, -6) Do Until a(b) Mod 2 <> 0 And Abs(a(b)) < 100 And Abs(a(b)) >= 10 b = b + 1 Loop MsgBox a(b) |
||
|
Номер ответа: 2 Автор ответа: bi-lyaВопросов: 1 Ответов: 125 |
Профиль | | #2 | Добавлено: 23.01.08 05:08 |
|
Да, и защита от отсутствия такого числа - что-нибудь типа: If b > UBound
 Then Exit Sub |
||
Страница: 1 |