сервис вопросов и ответовДали второе задание, исходя из этого:http://znanija.com/task/4120829
10-11 класс|
|
Нужно составить программу, которая так же выводит числа, только главное условие - чтоб выводимые числа делились и на 2, и на 3, и на 5
рабочая программа для вывода кратных 2,3 и 5:
Private Sub CommandButton1_Click()Dim i As IntegerDim n As Integern = InputBox("До какого числа выводить результат?")
Dim Massiv() As IntegerDim s As IntegerFor i = 0 To nIf (i Mod 2) = 0 Or (i Mod 3) = 0 Or (i Mod 5) = 0 ThenReDim Preserve Massiv(s)Massiv(s) = is = s + 1Range("A" & CStr(s)).SelectActiveCell.FormulaR1C1 = Massiv(s - 1)End IfNext
End Sub
Amalz1
14 июля 2013 г., 23:46:53 (10 лет назад)
Manatsia
15 июля 2013 г., 1:46:34 (10 лет назад)
Private Sub CommandButton1_Click()Dim i As IntegerDim n As Integern = InputBox("До какого числа выводить результат?")
Dim Massiv() As IntegerDim s As IntegerFor i = 0 To nIf (i Mod 2) = 0 And (i Mod 3) = 0 And (i Mod 5) = 0 Then ReDim Preserve Massiv(s) Massiv(s) = is = s + 1Range("A" & CStr(s)).SelectActiveCell.FormulaR1C1 = Massiv(s - 1)End IfNext
End Sub
Ответить
Другие вопросы из категории
Для изготовления различных изделий А и В используется три виде сырья. На производство единицы изделия А его требуется затратить первого вида - 8 кг,
второго вида - 7 кг, третьего вида - 4 кг. На производство единицы изделия В требуется затратить сырья первого вида - 3 кг, второго вида - 6 кг, третьего вида - 9 кг. Производство обеспечено сырьем первого вида в колличестве 864 кг, второго вида - 864 кг, третьего вида - 945 кг. Прибыль от реализации единицы готового изделия А составляет 2 тыс. руб, В - 3 тыс. руб. Составить план производства изделий А и В, обеспечивающий максимальную прибыль от их реализации.
определить число элементов массива, больших К. По заданному условию сформировать одномерный массив, вывести на печать и произвести операции по обрабо
тке полученных компонентов массива. Исходными данными являются одномерный массив, элементы которого задаются с помощью датчика случайных чисел от -50 до +50 и целое положительное число К
Читайте также
Помогите решить задание С2 из Егэ
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значение от -1000 до 1000.Гарантируется, что последний элемент массива отличен от нуля.
Приведите фрагмент программы вместо ... на языке Паскаль.
const N=30;
var
a: array [1..N] of integer;
i, x, y: integer;
s: real;
begin
for i;=1 to N do readln(a[i]);
.......
end.
ниже скрин задания.
Такое впечатление, что к этой задаче не предложили правильный ответ! Помогите, пожалуйста разобраться:
Эдуард написал макрос для текстового редактора, который реализует 4 действия: перейти к абзацу с заданным номером в текущем текстовом документе; вырезать содержимое выделенного абзаца и поместить его в буфер обмена; выделить текущий абзац; вставить содержимое буфера обмена перед текущим абзацем. Сколько действий из этого набора, необходимо выполнить, что бы поменять две группы по два абзаца местами?
А) 22 Б) 24 В) 26 Г) 28
На столе находятся девять листочков с целыми цифрами от 1 до 9. Из этих листочков составляются два целых числа. Одно из них будет числителем, а второе
знаменателем, причем знаменатель всегда состоит из пяти цифр и каждый листочек должен быть использован. Найти количество комбинаций листочков, которые образовали бы дробь, равную 2/7.
Исполнитель Маляр стоит на клетчатом поле. Маляр может выполнять команды вправо, влево, вверх, вниз. При выполнении любой из этих команд он
перемещается на одну клетку соответственно вправо →,влево ←, вверх ↑, вниз ↓ по полю. Все клетки, через которые проходит Маляр (включая начальную и конечную), он закрашивает. Дана программа для этого исполнителя: НАЧАЛО ПОВТОРИТЬ 100 РАЗ вправо вправо влево влево вверх вправо вниз КОНЕЦ КОНЕЦ Сколько клеток будет закрашено в результате выполнения этой программы? Ответ обоснуйте.
Иван и Мария взяли числа 5, 10, 28, 32 и с каждым из них выполняли следующие действия, которые называли шагом: если число четное – делили на 2,если число
нечетное – умножали его на 3 и к результату прибавляли 1.с какими из этих чисел результат 1 получится за 6 шагов?
а) 5
б) 10
в) 32
г) 28
Вы находитесь на странице вопроса "Дали второе задание, исходя из этого:http://znanija.com/task/4120829", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.