Задача 1.
Var
A:integer;
S:real;
Begin
S:=0;
For A:= 120 to 300 do
S:=S+A;
WriteLn('S = ',S);
End.
Результат работы программы:
S = 38010
<span>Задача 2.
Var S:real;
n,A:integer;
Begin
n:=0;
S:=0;
For A:= 15 to 100 do
if A mod 10 = 6 then
Begin
S:=S+A;
n:=n+1
End;
WriteLn('Sr = ',S,'/',n,' = ',S/n);
End.</span>
113x=237(8)
237(8)=2×8²+3×8+7=128+24+7=159(10)
113(x)=1×x²+1×x+3=x²+x+3
x²+x+3=159
x²+x-156=0
D=1+624<span>=625
x=-1+25</span>/2=12
===== PascalABC.NET =====
begin
var a := ReadArrInteger(5);
a.Println
end.