составить программу вычисления суммы чётных чисел и произведение нечётных чисел от 1 до 10.
5-9 класс
|
var i, s, pr: integer;
begin
s:=0;
pr:=1;
for i:=1 to 10 do
begin
if i mod 2=1 then pr:=pr*i;
if i mod 2=0 then s:=s+i;
end;
writeln('Произведение нечетных чисел: ',pr, ', сумма четных чисел: ', s);
end.
А вообще это элементарное задание. Неужели вам не объясняли, как такие делать?
Другие вопросы из категории
ряда:
sin x + sin 2x+sin 3x+…sin N*X
Протестировать программу для x=1.5 и N=3. Проверить правильность ответа на калькуляторе.
"В этой книге ровно два неверных утверждения"
.........................................................
"В этой книге ровно сто неверных утверждений"
Какое из этих утверждений верное?
Читайте также
2.Составьте программу вычисления количества трёхзначных чисел палиндромов ( чисел, которые читаются одинаково слева направо и справа налево).
3.Найти двухзначные числа, которые делятся на сумму своих цифр
4.Составьте программу вывода количества трёхзначных чисел, у которых цифры упорядочены строго по убыванию.
РЕБЯТА СРОЧНО!!!!!!!!!!!
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
элементов. 3) Составьте программу вычисления среднего арифметического элементов массива. Пожалуйста.. очень надо!