Информатика | 10 - 11 классы
Найти сумму всех n - значных чисел, кратных k (1 < ; = n < ; = 4).
VBA.
Дано 11 чисел?
Дано 11 чисел.
Найти суммы
чисел кратных 3 и некратных 9.
Составить программы 1?
Составить программы 1.
Найти сумму всех 3х значных чисел кратных 17.
2. найти произведение всех чисел меньше 16.
Найти сумму всех n - значных чисел, кратных k (1 ≤ n ≤ 4)?
Найти сумму всех n - значных чисел, кратных k (1 ≤ n ≤ 4).
Кумир.
Помогите, срочно надо!
Найти произведения двух значных чисел кратных 3?
Найти произведения двух значных чисел кратных 3?
Найти сумму положительных кратных 7 чисел, меньших 100?
Найти сумму положительных кратных 7 чисел, меньших 100.
С клавиатуры вводится несколько чисел?
С клавиатуры вводится несколько чисел.
Найти сумму чисел кратных 5 и кол - во положительных.
Найти сумму чисел в массиве кратные 10?
Найти сумму чисел в массиве кратные 10.
VBA помогите пожалуйста 1?
VBA помогите пожалуйста 1.
Дано целое число В.
Найти сумму целых чисел, больших 10 и меньших В.
2. Среди всех двузначных чисел выбрать и вывести только кратные 8.
Вывести результаты на листы.
Найти сумму чисел, кратных 3 от 1 до 100?
Найти сумму чисел, кратных 3 от 1 до 100.
Найти сумму чисел кратных 7 в промежутке от 10 до 99?
Найти сумму чисел кратных 7 в промежутке от 10 до 99.
На этой странице сайта, в категории Информатика размещен ответ на вопрос Найти сумму всех n - значных чисел, кратных k (1 < ; = n < ; = 4)?. По уровню сложности вопрос рассчитан на учащихся 10 - 11 классов. Чтобы получить дополнительную информацию по интересующей теме, воспользуйтесь автоматическим поиском в этой же категории, чтобы ознакомиться с ответами на похожие вопросы. В верхней части страницы расположена кнопка, с помощью которой можно сформулировать новый вопрос, который наиболее полно отвечает критериям поиска. Удобный интерфейс позволяет обсудить интересующую тему с посетителями в комментариях.
Sub Zadanie() n = CInt(InputBox("n = ")) k = CInt(InputBox("k = ")) s = 0 for i = 10 ^ (n - 1) to 10 ^ n - 1 if i mod k = 0 then s = s + i next MsgBox s
End Sub.