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

Question

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

Answer 1

Program z1;
var s,p,i:integer;
begin
s:=0;
p:=1;
for i:= 1 to 10 do
if i mod 2 =0 then s:=s+i
else p:=p*i;
writeln('сумма четных',s);
writeln('произведение нечетных',p);
end.

Comments

большое спасибо