Написать программу(на ABC pascal), которая находит сумму четных цифр и произведение нечетных чисел в диапазоне от 1 до 10.
Написать программу(на ABC pascal), которая находит сумму четных цифр
и произведение нечетных чисел
в диапазоне от 1 до 10.
Гость
Ответ(ы) на вопрос:
ГостьКак-то так, если синтаксис помню:
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;
Не нашли ответ?
Похожие вопросы