Число 512 в шестнадцатеричной системе счисления (HEX): 000200.
Надо использователь цикл for в котором в формуле прописать s:=i+1/3
S=165 i=10..........................................
Var i,a1,a2:integer;
sum:longint;
begin
a1:=1;
a2:=2;
sum:=0;
while (a1<102) or (a2<102) do
begin
sum:=sum+(a1*a2);
a1:=a2+1;
a2:=a1+1;
end;
writeln(sum);
end.