Найти сумму четных и произведение не четных чисел в промежутке от 1 до n
Найти сумму четных и произведение не четных чисел в промежутке от 1 до n
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы