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.

Answer 2

2ое число не поместится в longint (http://ideone.com/6J2I7P) нужно использовать int64