1)найти сумму чисел кратные 3 но не делящихся на2 от 100 до 150
5-9 класс
|
2)вывести натуральные числа от 100 до 150 через 5
var a:integer;
begin
for a:=100 to 150 do
if (a mod 2<>0) and (a mod 3=0) then writeln(a)
end.
var a:integer;
begin
a:=100;
while a<= 150 do
begin
writeln(a);
a:=a+5
end
end.
Другие вопросы из категории
azartplaycasino.com
winner.com
В каких видах рулетки 37 чисел?
Помогите завтра контрольная по этой теме. умоляю помогите решить. срочно надо!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Садовой участок прямоугольной формы имеет площадь S. При каких размерах длины и ширины участка длина изгороди будет наименьшей?Составить геометрическую и математическую модель.
различаются информационные объёмы этих текстов?
Читайте также
3) Даны числа от 1 до n. Найти сумму чисел кратных 5, но не кратных 7.
Помогите пожалуйста!!!)))))
через 5
заранее спс
последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 5. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 5.
последовательности, а затем сами числа. В последовательности всегда имеется число кратное 6. Кол-во чисел не превышает 100. Введённые числа не привышают 300. Программа должна ввести одно число - сумму чисел кратных 6
последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 3.
(Pascal)