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

Question

Информатика

Ермилий

19 марта, 02:23

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

+5

Ответы (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.