Đề ở bên dưới:
Mọi người ktra giùm mik luôn:
Uses CRT;
Var i,n: Integer;
Function ktnt (n: Integer): Boolean;
Var i,d,j: Integer;
Begin
d:=0;
If n<2 then
ktnt:=false
Else
For i:=1 to n do
For j:=1 to i do
Begin
If i mod 2=0 then
d:=d+1;
If d=2 then
ktnt:=true
Else
ktnt:=false;
End;
End;
Begin
ClrScr;
Write ( 'Nhap so nguyen n: ' );
Readln (n);
Write ( 'Day so hanh phuc: ' );
For i:=n downto 1 do
If (ktnt(i)=true) or (n mod i=0) then
Write (i,' ');
Readln;
End.
Kq bài của mik ko đủ ạ!
8 4 3 2 1
Loga
Sinh Học lớp 12
