Составьте программу, которая находит сумму чётных чисел и произведение нечётных чисел в диапазоне от 1 до 10.

Спасибо! Но мне надо программа там где есть слово прогрем,бэгин.

var s,p:real;i:integer;begins:=0;p:=1;for i:=1 to 10 doif i mod 2=0 then s:=s+i else p:=p*i;writeln ('Произведение равно ',p);writeln ('Сумма равна ',s);end.

Указывайте требуемый язык

#include <iostream>void main(void){int s = 0, m = 1;for(int i = 1; i <= 10; i++){if(i % 2 == 0){s += i;}else{m *= i;}}cout<<"Sum = "<<s<<". Multiply = "<<m<<endl;}