Составьте программу которая находит сумму четных чисел в и произведение нечетных чисел в диапазоне от 1 до 10

Question

Информатика

Илюня

6 июля, 13:54

Составьте программу которая находит сумму четных чисел в и произведение нечетных чисел в диапазоне от 1 до 10

+4

Ответы (1)

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

Иосиф · Answer 1

Var i, a, s, s2:integer;

begin

s:=0;

s2:=1;

for i:=1 to 10 do

begin

if (i mod 2=0) then s:=s+i;

if (i mod 2=1) then s2:=s2*i;

end;

inc (i) ;

writeln ('Сумма четных ', s) ;

writeln ('Произведение нечетных ', s2) ;

end.