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!