program ngto;
uses crt;
var A:array[1..1000] of integer;
n,i,d:integer;
function ktnt(k:integer):boolean;
var l:integer;
begin
ktnt:=false;
if k<2 then exit;
for l:=2 to trunc(sqrt(k)) do
if k mod l=0 then exit;
ktnt:=true;
end;
BEGIN
clrscr;
write('Nhap so luong phan tu N: '); readln(n);
d:=0;
for i:=1 to n do
write('Phan tu thu ',i,': '); readln(A[i]);
if ktnt(A[i]) then d:=d+1;
write('Mang tren co ',d,' phan tu la so nguyen to');
readln;
end.
đây bạn
b,x mũ 2-7 là ước của x mũ 2 +2
Trên hai đĩa cân A, B có 2 cốc đựng hai dung dịch axit HCl ( đĩa A), axit H2SO4 (đĩa B). Điều chỉnh lượng dung dịch ở hai đĩa cân để cân ở vị trí thăng bằng. Cho 1,15 g kim loại Na vào cốc đựng dung dịch HCl. Để cân ở vị trí thăng bằng cần thêm bao nhiêu gam kim loại Mg vào cốc đựng dung dịch H2SO4. Em cần gấp, mai kt rồi😭
8/ Cho tam giác ABC cân tại A. Trên các cạnh AB và AC lấy các điểm D và E sao cho AD = AE. Gọi K là trung điểm của BC. Chứng minh rằng : a) BD = CD b) tam giác KBD = KCE c) AK vuông góc DE
để điều chế 560g dd CuSO4 16% cần phải lấy bao nhiêu g dd CuSO4 8% và bao nhiêu g tinh thể CuSO4.5H2O? Nhớ giải thích kĩ chút nha!!
Lớp 4A có 42 học sinh. Trong đó có 25 HS giỏi toán, 23 HS giỏi Tiếng Việt và hai HS không giỏi môn nào. Hỏi có bao nhiêu HS giỏi cả hai môn?
để tìm một từ (hay dãy kí tự ) ta nháy chuột mở trang nào trên dải lênh home
Các chất được cấu tạo như thế nào?
1 hình lập phương có tổng d.t xung quanh và d.t toàn phần là 250 cm2 .Tính cạnh của hình lập phương
Giúp mình nha mọi người cảm ơn mọi người
hoidap bị lỗi à mn hay là máy tính em bị lỗi *vẽ đậu mầm*
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
