Chương trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Hứa Tiến Mạnh

Viết chương trình, cho 1 dãy số nguyên gồm N phần tử (A1,A2,…,AN). Tìm ước chung lớn nhất của dãy số trên.

Nguyễn Lê Phước Thịnh
13 tháng 12 2020 lúc 22:35
uses crt; var i,n,a,b, uc,bcnn:integer ; c:array[1..100] of integer; {--- CTC tim UCLL hai so} function ucln(a,b:integer):integer; var r:integer; begin r:=a mod b; while r<>0 do begin a:=b; b:=r; r:= a mod b; end; ucln:=b; end; {--- CTC chinh----} begin Write('n= '); readln(n); for i:=1 to n do begin write('c[',i,']='); readln(c[i]); end; for i:= 1 to n do Write(c[i]:3);writeln; uc:=ucln(c[1], c[2]); bcnn:=(c[1]*c[2])div uc; for i:=3 to n do begin uc:=ucln(uc,c[i]); bcnn:= bcnn*c[i] div uc; end; Writeln('bcnn =',bcnn); readln; end.

Các câu hỏi tương tự
Thái Bảo
Xem chi tiết
Vân Ngô
Xem chi tiết
Hà Phương
Xem chi tiết
Minh Châu
Xem chi tiết
Nemo
Xem chi tiết
Trần Vi Nam Khánh
Xem chi tiết
Nguyễn Lan
Xem chi tiết
La Đô
Xem chi tiết
Thiên Hà
Xem chi tiết