Информатика | 5 - 9 классы
Составить программы 1.
Найти сумму всех 3х значных чисел кратных 17.
2. найти произведение всех чисел меньше 16.
Найти сумму первых десяти чисел, кратных пяти?
Найти сумму первых десяти чисел, кратных пяти.
Составить алгоритм.
Найти сумму(S) и произведение (P) всех чисел от 1 до 100 кратных 3?
Найти сумму(S) и произведение (P) всех чисел от 1 до 100 кратных 3.
Найти Сумму Чисел Кратных 3 для ряда 1?
Найти Сумму Чисел Кратных 3 для ряда 1.
N - задача 1
Найти произведение чисел, оканчивающихся на 5 - 2 задача.
Найти сумму всех n - значных чисел, кратных k (1 ≤ n ≤ 4)?
Найти сумму всех n - значных чисел, кратных k (1 ≤ n ≤ 4).
Кумир.
Помогите, срочно надо!
Найти произведения двух значных чисел кратных 3?
Найти произведения двух значных чисел кратных 3?
Составить программу вычисления суммы и произведения натуральных чисел кратных 9 Очень надо?
Составить программу вычисления суммы и произведения натуральных чисел кратных 9 Очень надо!
Найти сумму положительных кратных 7 чисел, меньших 100?
Найти сумму положительных кратных 7 чисел, меньших 100.
8 + 9 + 10?
8 + 9 + 10.
+ 35 найти сумму произведение четных чисел.
Составить программу на паскале.
Найти сумму всех n - значных чисел, кратных k (1 < ; = n < ; = 4)?
Найти сумму всех n - значных чисел, кратных k (1 < ; = n < ; = 4).
VBA.
Составить программу, которая находит сумму и произведение чисел кратных 3 из промежутка [15 ; 25]?
Составить программу, которая находит сумму и произведение чисел кратных 3 из промежутка [15 ; 25].
Вы перешли к вопросу Составить программы 1?. Он относится к категории Информатика, для 5 - 9 классов. Здесь размещен ответ по заданным параметрам. Если этот вариант ответа не полностью вас удовлетворяет, то с помощью автоматического умного поиска можно найти другие вопросы по этой же теме, в категории Информатика. В случае если ответы на похожие вопросы не раскрывают в полном объеме необходимую информацию, то воспользуйтесь кнопкой в верхней части сайта и сформулируйте свой вопрос иначе. Также на этой странице вы сможете ознакомиться с вариантами ответов пользователей.
1)
var b, i : integer ;
begin
b : = 0 ; for i : = 100 to 999 do if (i mod 17) = 0 then b : = b + i ; writeln (b) ;
end.
2)
var b, c : integer ;
begin b : = 1 ; for c : = 1 to 15 do b : = b * c ; writeln (b) ;
end.