Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
i,n,d: longint;
Function demuoc(a: longint): longint;
Var s: longint;
Begin
s:=0;
For i:=1 to a do
If a mod i = 0 then inc(s);
demuoc:=s;
End;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
End;
d:=0;
For i:=1 to n do
If demuoc(A[i]) mod 2 = 0 then inc(d);
Write(d);
Readln
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
78
28
Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
i,n,d: longint;
Function demuoc(a: longint): longint;
Var s: longint;
Begin
s:=0;
For i:=1 to a do
If a mod i = 0 then inc(s);
demuoc:=s;
End;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
End;
d:=0;
For i:=1 to n do
If demuoc(A[i]) mod 2 = 0 then inc(d);
Write(d);
Readln
End.
ko b đúng ko nx
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin