1)Составьте программу вычисления произведения S=1*2+3*4+5*6+...+101*102 (в паскале)
2)составьте программу вычисления суммы S=0.5+1.5+2.5+... +98.5+99.5

1)varcom,i:integer;beginfor i:= 1 to 101 do  if i mod 2 = 1 then    com:= com + i * i+1;Writeln(com);end.Результат:1769022)varsum, x:Real;beginwhile x < 100 do beginsum := sum + x;x:= x+ 0.5end;Writeln(sum);end.Результат:9950