Даны целые положительные числа a и b найдите их наименьшее общее кратное нок используя алгоритм евклида: нок(a,b)=нок(b,a mod b), если b не равен 0; nok(a; 0)=a

var     a, b, c, a1, b1: integer; begin    writeln('введите a и b: ');     readln(a, b);     a1 : = a;     b1 : = b;     while b1 < > 0 do    begin        c : = a1 mod b1;         a1 : = b1;         b1 : = c;     end;     if b < > 0 then        writeln('нок(', a,',', b,') = ', a div a1 * b)    else        writeln('нок(', a,',', b,') = ', a);

end.

сори в начале не понял, что нужен евклид, я исправился:  

uses crt; function nod(m,n: integer): integer; beginif m< > 0 then nod: =nod(n mod m,m) else nod: =n; end; function nok(m,n: integer): integer; beginnok: =(m div nod (m,n))*n; end; var x,y: integer; beginclrscr; writeln('vvedite x y : '); readln(x,y); writeln (nok(x,y)); readln; end.

ответ:

Если на питоне вот код:

1)

print("-7")

print("-6")

print("-5")

print("-4")

print("-3")

print("-2")

print("-1")

print("0")

print("1")

print("2")

print("3")

print("4")

print("5")

print("6")

print("7")

2)

print("2")

print("4")

print("6")

print("8")

print("10")

print("12")

print("14")

print("16")

print("18")

print("20")

3)

1=1

2=4

3=9

4=16

5=25

6=36

7=49

8=64

9=81

10=100

Потом нужно просто прописать числа те что перед знаком равности.

Пример:

1

2

3

4

....

и запустить