Зачем нужно d и почему в цикле оно умножается само на себя while d*d<=i: d=1

k=0

while d*d<=i:

if i%d==0:

if i//d-d<=110:

k+=1

if k==3:

print(i)

break

d+=1

Если ты хочешь, чтобы я написал программу на языке программирования Pascal, тогда держи:

1) Если ты говоришь про разряд единиц, тогда вот программа:

Program pofignanazvanieprogrammi_1_1;

Var a:integer;

Begin

 write('Введите число -> ');

 readln(a);

 writeln(a mod 10);

End.

А если про разряд сотен тысяч, тогда:

Program pofignanazvanieprogrammi_1_2;

Var a:integer;

Begin

 write('Введите число -> ');

 readln(a);

 writeln(a div 100000);

End.

2) Угу, это легче.

Program chto_2;

Var a,S:integer;

Begin

 S:=0;

 write('Введите число -> ');

 readln(a);

 while a>=0 do

 begin

   S:=S+(a mod 10);

   a:=a div 10;

 end;

 writeln(S);

End.

Один раз я с семьей решили поехать в лес.
(Суда ты пишешь что в лесу был пикник ну или что-то другое и пишешь что ты туда взял(а) но это не обязательно)) . И в лесу была узкая тропинка я пошла по ней , а потом за ним была большая дверь, которая вела вела в прекрасный сад.В саду была речка и много деревьев, я прогулялась по саду.И в саду я нашла очки и я посмотрела по сторонам но никого не было. (Потом ты пишешь суда что я узнала что это очки времени и я куда то попала и все )).

Удачи в школе
Если не то Извини