Program fagasg;
var g,h: Real;
i: integer;
begin
g:=3;
h:=3;
For i:=2 to 10 do
begin
g:=g+i+1;
h:=g*h;
end;
Writeln(h);
<span>end. </span>
Решение во вложении
..............................
33(k)+22(k)+16(k)+17(k)=100(k)
Перейдем к десятичной системе счисления.
(3k+3)+(2k+2)+(k+6)+(k+7)=k²
k²-7k-18=0
D=49+72=121; √D=11
k₁=(7-11)/2=-2 < 0 - не удвлетворяет
k₂=(7+11)/2=9
Следовательно, <em><u>система счисления девятеричная.</u></em>