Напишите программу для нахождения НОК для n чисел (Pascal)
Answers & Comments
gamer54220123456789101112uses 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
Answers & Comments