Найти сумму целых положительных чисел из промежутка от А до В, кратных 4 (значения переменных А и В вводятся клавиатуры)
5-9 класс
|
var A,B,i,sum:integer;
begin
read(A,B);
sum:=0;
for i:=A to B do
if i mod 4 = 0 then sum:=sum+i;
writeln(sum);
end.
Вопросы в ЛС
Другие вопросы из категории
диаграмма. 3. График.
запрашивает значения х и сообщает значение f(х). помогите пожалуйстааа((((
Читайте также
клавиатуры.
2)найти перевертышь трехзначного числа.
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n