uses crt; var i,n,b:longint; a:array[1..1000000]of longint; function bcnn(a,b:longint):longint; begin bcnn:=a; while bcnn mod b<>0 do bcnn:=bcnn+a; end; begin clrscr; write('Nhap vao so phan tu: ');readln(n); b:=1; for i:=1 to n do begin write('Nhap phan tu thu ',i,': ');readln(a[i]); b:=bcnn(a[i],b); end; writeln(b); readln end.
program Hello; uses crt; var n,i:longint; x,bcnn:Int64; function gcd(a, b: Int64): Int64; var t: Int64; begin while b <> 0 do begin t := b; b := a mod b; a := t; end; gcd:= a; end; begin clrscr; readln(n); bcnn:= 1; for i:= 1 to n do begin read(x); bcnn:= bcnn * (x div gcd(x, bcnn)); end; writeln(bcnn); readln; readln; end.
