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

Вывести все четные числа от m до М


Вывести все четные числа от m до М
2009-11-24 07:00 Александр
Вывести все четные числа от m до М Даны целые числа а1…аn. Пусть m и М— наибольшее и наименьшее из них. Вывести все четные числа от m до М, не встречающиеся среди данных в порядке убывания. Для вывода массива пользоваться элементом управления List. Dim a(0 To 20) As Integer Dim i As Byte Dim k As Integer Dim max As [...]


В избранное