РЕШИТЕ ЭТО Определи расстояние на плоскости между двумя точками с заданными координатами M1(x1,y1)и M2(x2,y2). ответ введи целым числом.

Если координаты точек: x1=6;y1=3x2=9;y2=12.
ответ округли до целых.

ответ: d=

Procedure GetAB(x: integer; var a: integer; var b: integer);
begin
    a := 0;
    b := 1;
    while x > 0 do
    begin
        a := a + 1;
        b := b * (x mod 100);
        x := x div 100;
    end;
end;

var
    x, a, b: integer;

begin
    for x := 10000 to 2000000000 do
    begin
        GetAB(x, a, b);
        if (a = 3) and (b = 18) then
            Println(a, b, x);
    end;
end.

выдает такие значения
3 18 10118
3 18 10209
3 18 10306
3 18 10603
3 18 10902
3 18 11801
3 18 20109
3 18 20303
3 18 20901
3 18 30106
3 18 30203
3 18 30302
3 18 30601
3 18 60103
3 18 60301
3 18 90102
3 18 90201
3 18 180101

Выделенное наибольшее

def check_simple(number:int):

assert number % number == 0 #check number is 'int' class

for i in range(2, number):

 if number % i == 0:

  return 0

return 1

def main():

a,b = input().split()

assert int(a) >= int(b)  #Гарантировано, что a >= b

res = []

for i in range(int(a), int(b)):

 if check_simple(i):

  res.append(i)

if len(res) == 0:

 print(0)

else:

 print(' '.join(str(i) for i in res))

if __name__ == '__main__':

main()

Объяснение:

Скриншот приложен на случай, если сайт поломает табуляции в коде. Программа протестирована