Ох
Охренеть
программа на pascal (найти НОК через НОД для двух чисел )
мне надо найти сначала НОД, а потом уже через НОК НОК, а не отдельно
мне надо найти сначала НОД, а потом уже через НОК НОК, а не отдельно
function nod(a,b:integer):integer;
begin if a mod b<>0 then nod:=nod(b,a mod b) else nod:=b end;
function noc(a,b:integer):integer; begin noc:=a div nod(a,b)*b end;
var a,b:integer; begin readln(a,b); writeln(noc(a,b)); readln end.