составьте программу которая находит сумму четных чисел и произведение нечетных чисел в диапазоне от 1 до 10
5-9 класс
|
uses Crt;
var s,i:integer;
begin ClrScr;
i:=0;
s:=0;
While i<10 do
Begin i:=i+2;
s:=s+i;
end;
writeln('Сумма четных = ',s);
i:=1;
s:=1;
While i<9 do
Begin i:=i+2;
s:=s*i;
end;
writeln('Произведение нечетных = ',s);
readln;
end.
Другие вопросы из категории
Читайте также
и количество элементов с нечетными значениями.
б) Составьте программу, которая заполняет массив b[1..8] случайными целыми числами в диапазоне от 1 до 10 и находит произведение элементов с нечетными значениями и количество элементов с четными значениями.
элементов с нечётными индексами
2)составьте программу,которая заполняет массив a[1..10]случайными целыми числами в диапазоне от 0 до 10,находит максимальный элемент массива,а затем вычисляет,сколько раз он встречается в массиве
значениями. №2 Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 до 10 и вычисляет среднее арифметическое элементов массива. №3 Такое же как и №2, только ...элементов массива с четными значениями.
и произведение нечетных чисел
в диапазоне от 1 до 10.