Как решить задачу на Паскале: Сколько слагаемых суммы 1+2+3+4+5+…надо взять, чтобы получилось трехзначное число, состоящее из одинаковых цифр?

Если я правильно понял условие, то такое число - 666. Получается 36 слагаемых.

Код на паскале:

var i,k:integer;

begin

k:=0;

i:=1;

while(i<=1000) do begin k:=k+i; i:=i+1; if(((k>=100)and(k<1000)) and ((k mod 100 div 10) = k div 100) and (((k mod 100) mod 10) = k div 100)) then begin

writeln(i-1); halt(); end; end;

end.

var i,a,b,c:integer;t,z1,z2,z3 :string;

begin

a:=1;

b:=1;

for i:=1 to 1000 do begin

c:=b;

b:= a + c;

if b > 100 then begin

Str(b,t);

z1:=copy(t,1,1);  z2:=copy(t,2,1); z3:=copy(t,3,1);

if (z1 = z2) and (z2 = z3) then

writeln(b:4);

end;

end;

end.