Question

Напишите программу для нахождения НОК для n чисел (Pascal)

Answer 1

1 2 3 4 5 6 7 8 9 10 11 12 uses crt; var a,b,c:integer;   begin  readln(a,b);  c:=a*b;  repeat   if a>b then a:=a-b else b:=b-a;  until a=b  c:=с div a;  writeln(c); end;P.S. Использовано свойство НОД(a,b)*НОК(a,b)=a*b