8+9+10...+35 найти сумму произведение четных чисел. составить программу ** паскале

Question

8+9+10...+35 найти сумму произведение четных чисел. составить программу на паскале

Answer 1

Var s,p,real;
begin
    p:=1;
    s:=0;  
    for var i:=8 to 35 do 
       if i mod 2 = 0  then begin
           s:=s+i;
           p:=p*i;
       end;
    writeln('Сумма четных = ',s,', Произведенние четных = ', p);   
end.