Написать программу (на ABC pascal), которая находит сумму четных цифр

и произведение нечетных чисел

в диапазоне от 1 до 10.

Question

Информатика

Бориска

30 августа, 18:55

Написать программу (на ABC pascal), которая находит сумму четных цифр

и произведение нечетных чисел

в диапазоне от 1 до 10.

+4

Ответы (1)

Знаете ответ на вопрос?

Степура · Answer 1

Как-то так, если синтаксис помню:

sum : = 0;

mul : = 1;

for index : = 1 to 10 do

begin

if (index mod 2 = 0) then

begin

sum : = sum + index;

end;

else

begin

mul : = mul * index;

end;

end;

Написать программу (на ABC pascal), которая находит сумму четных цифри произведение нечетных чиселв диапазоне от 1 до 10.

Написать программу (на ABC pascal), которая находит сумму четных цифр

и произведение нечетных чисел

в диапазоне от 1 до 10.