Информатика | 5 - 9 классы
Дан целостный ряд чисел от 0 до 1000.
Найти сумму и колличество чисел, кратных 5 и оканчивающихся на 0.
Дан массив натуральных чисел ?
Дан массив натуральных чисел .
Найти сумму элементов , кратных заданному К.
Дано 11 чисел?
Дано 11 чисел.
Найти суммы
чисел кратных 3 и некратных 9.
Найти Сумму Чисел Кратных 3 для ряда 1?
Найти Сумму Чисел Кратных 3 для ряда 1.
N - задача 1
Найти произведение чисел, оканчивающихся на 5 - 2 задача.
Записать, как програму в паскале Дана последовательность чисел, оканчивающихся нулем?
Записать, как програму в паскале Дана последовательность чисел, оканчивающихся нулем.
Найти произведение чисел, оканчивающихся цифрой 5.
Дан ряд чисел от 11 до 200?
Дан ряд чисел от 11 до 200.
Найти произведение чисел , кратных 7, из этого ряда (через pascal).
Дано масив а из 15 чисел, найти сумму елементов кратных 4?
Дано масив а из 15 чисел, найти сумму елементов кратных 4.
Даны числа от 1 до n?
Даны числа от 1 до n.
Найти произведение чисел кратных 3 и оканчивающихся на 1.
Помогите плиз?
Помогите плиз.
Определить колличество чисел кратных 3 и оканчивающихся на 2.
Программа получает на вход кол - во чисел послндовательности, а затем сами числа.
С клавиатуры вводится последовательность целых чисел, оканчивающаяся нулем?
С клавиатуры вводится последовательность целых чисел, оканчивающаяся нулем.
Найти количество отрицательных чисел и сумму чисел кратных 4.
Найти сумму чисел в массиве кратные 10?
Найти сумму чисел в массиве кратные 10.
Вы перешли к вопросу Дан целостный ряд чисел от 0 до 1000?. Он относится к категории Информатика, для 5 - 9 классов. Здесь размещен ответ по заданным параметрам. Если этот вариант ответа не полностью вас удовлетворяет, то с помощью автоматического умного поиска можно найти другие вопросы по этой же теме, в категории Информатика. В случае если ответы на похожие вопросы не раскрывают в полном объеме необходимую информацию, то воспользуйтесь кнопкой в верхней части сайта и сформулируйте свой вопрос иначе. Также на этой странице вы сможете ознакомиться с вариантами ответов пользователей.
/ / Pascal ABC.
NET v3.
1 сборка 1172
Var
i, k, s : integer ;
begin
for i : = 0 to 1000 do if (i mod 5 = 0) and (i mod 10 = 0) then begin inc(k) ; s : = s + i ; end ;
write('Сумма = ', s, ' количество = ', k) ;
end.