var A:mg; m,i:byte;
procedure Nhap_mg(Var X:mg);
begin
for i:=1 to m do readln(X[i]);
end;
Function NguyenTo(X:longint):boolean;
var j:integer;
begin
NguyenTo := false; f
or j:=2 to Trunc(sqrt(X)) do
If X mod j = 0 then exit; {thoat khoi chuong trinh con}
NguyenTo := X > 1; {Thuc chat: NguyenTo := true;}
end;
Function Dem(X:mg):longint;
var d:longint;
begin
d:=0;
For i:=1 to m do
If NguyenTo(X[i]) then d:=d+1;{inc(d)}
Dem := d;
end;
Hãy cho biết?
+ Tên CTC:…………………….
+ Biến toàn cục là: ……...........................
+ Biến cục bộ là: ………………..............
+ Tham số hình thức
- Tham số giá trị: ………...................
- Tham biến: ……………..................
+Tham số thực sự: ………………….............
+ lệnh gọi CTC:…………..
+ Biểu thức trả về cho tên hàm:…..
+ kiểu dữ liệu trả về cho tên hàm:…..
Loga
Sinh Học lớp 12
