Пример: для чисел 70 и 105 наибольший общий делитель равен 35.
Наибольший общий делитель существует и однозначно определён, если хотя бы одно из чисел m или n не ноль.
var x,y:integer; begin readln(x,y); while (x>0) and (y>0) do if x>y then x:=x mod y else y:=y mod x; writeLn(x+y); end.
Наиме́ньшее о́бщее кра́тное (НОК) двух целых чисел m и n есть наименьшее натуральное число, которое делится на m и n.
Пример: НОК(16, 20) = 80.
var x,y,s,a,b:integer; begin readln(x,y); a:=x*y; while (x>0) and (y>0) do if x>y then x:=x mod y else y:=y mod x; s:=x+y; b:=a div s; writeln(B)/>; end.