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

Question

Информатика

Ксенья

1 марта, 17:35

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

+3

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