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

Question

Каролина Моисеева

Информатика

1 июня, 20:06

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

+5

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