Var n,i:integer;
Function nt(x:integer):boolean;
Var i:integer;
BeginNt:=false;
If x<2 then exit;
For i:=2 to trunc(sqrt(x)) doIf x mod 2=0 then exit;
Nt:=true;
BeginWrite(‘nhap n:’);
readln(N);
For i:=2 to n doIf nt(i) then write(i,’ ‘);
Readln
End.
Function ktnt(x:integer):boolean;
begin
Ktnt:=true;
For j:=2
to round(sqrt(n)) do if n mod i =0 then
Begin
Ktnt:=false;
Break;
End;
end;
...
for i:=1 to n do if ktnt(i)=true then write(i,’ ‘);
end;//nhap xuat tu lam
Giải phương trình : $\frac{x+1}{2004}$ + $\frac{x+2}{2003}$ = $\frac{x+3}{2002}$ + $\frac{x+4}{2001}$
Có 4 đội tham gia trồng cây. Biết đội 1, đội 2 và đội 3 trồng được 1 200 cây , đội 2, đội 3 và đội 4 trồng được 1 060 cây, đội 1 và đội 4 trồng được 860 cây. Hỏi: a) trung bình mỗi đội trồng được bao nhiêu cây? b) nếu có thêm đội 5 cùng tham gia trồng cây thì đội 5 phải trồng bao nhiêu cây để mức trung bình mỗi đội tăng thêm 4 cây ?
Thương của hai số bằng 375. Nếu số chia gấp lên 15 lần và giữ nguyên số bị chia thì được thương mới là bao nhiêu
Giúp mình với thứ hai mình nộp rồi! Quan điểm của em về sự thất bại của trận bóng đá của U23 Việt Nam năm 2020 vừa qua
Giải phương trình 5( 3x + 2 ) = 4x +1
Tìm giá trị nhỏ nhất của hàm số f(x)=2x+1/x^2 với x>0
Tính : A = 2² + 3² + 4² + … + 99² + 100² ( vinh6adck mô rồi , vô đây )
Các thánh làm ơn giải giùm e 2 bài này
Nêu ra suy nghĩ của em về tình yêu tuổi học trò
Tìm x thuộc Z ,biết : a, (x - 2020)^2 = 4 b, (-4) . (x -2)^2 = -100 c, 3 . (2x +8) - (5x + 2) d, 5.(7-3x) + 7.(2+2x) = 0
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
