Bài 4. Một nhóm gồm K học sinh góp tiền mua một phần mềm dùng chung. Khi cài đặt phần mềm này, người sử dụng cần phải nhập vào một mật khẩu. Khi biết các khách hàng của mình là các học sinh say mê tin học, chủ cửa hàng thay vì đưa mật khẩu đã đưa cho mỗi bạn một con số khác nhau và sau đó nói rằng: Mật khẩu để cài đặt phần mềm là số nguyên dương nhỏ nhất gồm không quá chín chữ số chia hết cho bất cứ số nào trong các số tôi đã đưa cho các bạn.
Yêu cầu: Biết tất cả các số mà chủ cửa hàng đã đưa cho các học sinh, hãy tìm mật khẩu để cài đặt phần mềm.
Input: Dòng đầu tiên chứa số học sinh K (K<20). Dòng thứ hai chứa K số nguyên dương nhỏ hơn 20 mà ông chủ cửa hàng đã đưa cho các học sinh, hai số liên tiếp cách nhau bởi dấu cách.
Output: Mật khẩu tìm được.
Ví dụ:
Input
Output
K = 3 4 6 3
Mat khau la: 12
Giải thích các bước giải:
*C1: Đối với kiểu mảng fake:
Uses Crt;
Var X,k,i,uc:int32; bc:real; y,z:integer;
Begin
Clrscr;
Write(‘Goi k hoc sinh la: ‘); Readln(k);
For i:=1 to k do begin
Write(‘X’,i,’= ‘);
Write(‘ ‘); Readln(X);
End;
y:=k;
z:=X;
While (k<>X) do
If k>X then k:=k-X else X:=X-k;
uc:=k;
bc:=(y*z)/uc;
Writeln(‘Vay mat khau can can tim cho nhom ‘,k,’ hoc sinh la: ‘,bc:2:0);
Readln
End.
*Đã check kq và các lệnh cũng như dấu “;” hay “.”,… Nhớ tick và chọn thành câu tr/l hay nhất (nếu có đủ 2) giúp mình nhé! Thanks ;D
p/s:Thắc mắc do sai,cách làm kiểu mảng, comment bên dưới!