Найти сумму четных и произведение не четных чисел в промежутке от 1 до n

Question

Информатика

Гермес

22 мая, 12:21

Найти сумму четных и произведение не четных чисел в промежутке от 1 до n

+4

Ответы (1)

Знаете ответ?

Евпраксия · Answer 1

Var i, n, s, p: integer;

begin

write ('Введите число: ') ;

readln (n) ;

p:=1;

for i : = 1 to n do

if i mod 2=0 then s:=s+i

else p:=p*i;

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

end.