найти сумму четных и произведение не четных чисел в промежутке от 1 до n
5-9 класс
|
var i, n,s,p: integer;
begin
write('Введите число: ');
readln(n);
p:=1;
for i := 1 to n do
if i mod 2=0 then s:=s+i
else p:=p*i;
writeln('Сумма четных: ',s,'; произведение нечетных: ',p)
end.
Другие вопросы из категории
информационного потока) пожалуйста
заголовка(это не само названия приложения)
УМОЛЯЮ ПОМОГИТЕ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Читайте также
двузначных чисел в диапазоне от А до B, в которых первая цифра ровно в 2 раза больше второй.
и произведение нечетных чисел
в диапазоне от 1 до 10.
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n