Написать программу, которая для первых n натуральных чисел находит сумму чётных и произведение нечётных чисел. число n вводится с клавиатуры. выполнить программу для n=13, записать результат

Question

Информатика

Евмений

2 января, 18:21

Написать программу, которая для первых n натуральных чисел находит сумму чётных и произведение нечётных чисел. число n вводится с клавиатуры. выполнить программу для n=13, записать результат

+1

Ответы (1)

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

Рафаил · Answer 1

Const n=13;

var i, s, p:integer;

begin

s:=0; p:=1;

for i:=1 to n do begin

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

if (i mod 2 0) then p:=p*i;

end;

writeln ("Сумма четных = ", s,", произведение нечетных = ", p) ;

end.