Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
var n,i,d: longint;
a: array [1..10000] of longint;
///
Function snt(n: longint): boolean;
var i: longint;
begin
If n < 2 then snt:= false
else
begin
snt:= true;
For i:= 2 to trunc(sqrt(n)) do
If n mod i = 0 then
begin
snt:= false;
break;
end;
end;
end;
////
begin
Read(n); d:= 0;
For i:= 1 to n do
begin
Read(a[i]);
If snt(a[i]) = true then inc(d);
end;
Write(d);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
1982
1686
program bestanhvan;
uses crt;
var n,i,d:integer;
a:array[1..100] of integer;
function ktngt(s:integer):boolean;
begin
if s<2 then exit(false)
else
begin
for i:=2 to s-1 do
if s mod i = 0 then exit(false);
exit(true);
end;
end;
begin
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do
if (ktngt(a[i])=true) then inc(d);
write(d);
readln;
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
5245
1592
3314
code đẹp quá
880
16099
456
ý là chê hay khen vậy
5245
1592
3314
khen á