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

Question

Составте программу вычеления суммы нечётных и произведения чётных чисел в диапазоне от 40 до 60.

Answer 1

Program gt;
var i,s,p:longint;
begin
s:=0;
p:=1;
for i:=40 to 60 do
begin
if(i mod 2=0)then p:=p*i else s:=s+i;
end;
writeln(s,' ',p);
end.

Comments

500 и 4465760273694720000

---

Спасибо огромнейшее