<span>A = <span>3
</span>B = <span>9
</span>result = <span>1
</span>for x in range(A, B):
result *= x
print(result)</span>
1)6,25(800:128)
2)96(6*1.25)
3)1,6(40*50*10:12500)
uses Crt;
var i, Sum: integer;
begin
ClrScr;
Sum:=0;
for i:=100 to 200 do
if (i mod 2)=0 then Sum:= Sum+i;
WriteLn (' Sum = ', Sum);
ReadLn;
<span>end.</span>