Напишите программу( в паскале авс), которая находит НОК (наименьшее общее кратное) двух чисел, введённых с клавиатуры.
Answers & Comments
MagAragorn
Для решения этой задачи воспользуемся формулой: а*б=НОД(а,б)*НОК(а,б) var a,b:longint; function nod(a,b:longint):longint; begin if a= 0 then nod:=b else if b=0 then nod:=a else if a>b then nod:=nod(a mod b,b) else nod:=nod(a,b mod a); end; Begin read(a,b); writeln((a*b) div nod(a,b)); End.
Answers & Comments
а*б=НОД(а,б)*НОК(а,б)
var a,b:longint;
function nod(a,b:longint):longint;
begin
if a= 0 then
nod:=b else
if b=0 then
nod:=a else
if a>b then
nod:=nod(a mod b,b) else
nod:=nod(a,b mod a);
end;
Begin
read(a,b);
writeln((a*b) div nod(a,b));
End.