Var a,s,p:real; begin a:=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.
begin
a:=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.50
p = 304.54
Сумма больше