сравните,что больше сумма ряда 8.5,8.6,...,40.9 или произведение чисел от 1 до 3 с шагом 0.25
заранее спасибо♥

var a,s,p:real;begina:=8.5;s:=0;while a<=40.9+0.005 do begin s:=s+a; a:=a+0.1; end;writeln('s = ',s:6:2);p:=1;a:=1;while a<=3+0.005 do begin p:=p*a; a:=a+0.25; end;writeln('p = ',p:6:2);if s>p then writeln('Сумма больше') else writeln('Произведение больше');end.Результат:s = 8027.50p = 304.54Сумма больше