Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Вывести числа кратные 3 по убыванию с указанием порядковых номеров


Вывести числа кратные 3 по убыванию с указанием порядковых номеров
2009-11-27 07:00 Александр
Вывести числа кратные 3 по убыванию с указанием порядковых номеров Option Explicit ‘Полное задание: ‘Ввести массив из N натуральных чисел. Из них вывести только числа кратные 3. _ Вывод чисел должен быть по убыванию их значений с указанием порядковых номеров при вводе. ‘Пример. ‘Исходный массив: 6 8 3 5 9 18 4 ‘Полученный массив: 18(6) 9(5) 6(1) 3(3) Private Sub Command1_Click() Dim i As [...]


В избранное