сервис вопросов и ответовНаписать операторы, которые посчитают и перемножат числа, кратные 5, на интервале от 73 до 299
10-11 класс|
|
Maicon971
14 февр. 2014 г., 10:54:13 (10 лет назад)
Aasoloviov
14 февр. 2014 г., 13:29:31 (10 лет назад)
Dim p As Double, i As Integer
p = 1
For i = 75 To 299 Step 5
p = p * i
Next i
Print "Произведение равно "; p
End
А это дурацкий вариант на случай, если преподаватель пожелает увидеть условный оператор. Он делает ту же работу, но примерно раз в десять медленнее.
Dim p As Double, i As Integer
p = 1
For i = 73 To 299
If i Mod 5 = 0 Then p = p * i
Next i
Print "Произведение равно "; p
End
Katya50ozornina
14 февр. 2014 г., 15:44:13 (10 лет назад)
Комментарий удален
KatiaLarionova
14 февр. 2014 г., 18:06:02 (10 лет назад)
делем числа в цикле на 5 и если они целые то добавлям в массив ну или складываем через оператор if
Voldemors
14 февр. 2014 г., 20:07:42 (10 лет назад)
Комментарий удален
Ответить
Другие вопросы из категории
СРОЧНО!
Какого пункта меню нет в Блокноте?
а)Файл.
б)Правка.
в)Формат.
г)Вставка.
1 в кодировке Unicode на каждый символ приходиться два байта. Определите информационный объем слова из 24 символов в этой кодировке (в битах).
2 Считая, что каждый символ кодируется 1 байтом, оцените объем текста:
Певец-Давид был ростом мал, Но повалил же Голиафа!
Помогите решить задачу в Pascal
Задано слово произвольной длины. Определить, сколько раз в нем встречается буква "и"
Составить программу, которая выводит на экран меню: 1) первое; 2) второе; 3) третье; и в зависимости от выбранного пункта вы
даёт одну из надписей: «Получите суп», «Получите картошку», «Получите компот», «Оставайтесь голодным». Написать два варианта программы: с использованием условного оператора if и с использованием переключателя.
Пожалуйста сделайте
Выполнить деление
a) 10010101111(2) : 1011(2)
б) 5366(8) : 27(8)
в) 690(16) : 14(16)
Читайте также
Написать в Паскаль
Массив из 15 элементов заполнить случайными целыми числами кратными трём в интервале от -45 до 50. Вывести полученный массив на экран в строчку. Найти индекс наибольшего элемента массива.
1) Задано положительное число A. Найти сумм всех четных чисел в интервале от 1 до A. Число А может иметь дробную часть.
2) Задано целое положительное число А и В. Найти квадратные корни целых чисел в интервале от А до В. Замечание: A<B
Вы находитесь на странице вопроса "Написать операторы, которые посчитают и перемножат числа, кратные 5, на интервале от 73 до 299", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.