Var i, n: word;
Function isNt(x: word): boolean;
Var j: word;
Begin
For j:=2 to trunc(sqrt(x))
do if (x mod j =0)
Then exit(false);
Exit(true);
End;
Write('n = '); readln(n);
For i:=2 to n do if isNt(i)=true
Then write(i, ' ');
Readln
End.
program nguyen_to;
uses crt;
var n,i,d,j: integer;
clrscr;
write('Nhap n: '); readln(n);
write('Cac so nguyen to tu 2 den ',n,': ');
for i:=2 to n do
begin
d:=0;
for j:=1 to i do
if i mod j=0 then d:=d+1;
if d=2 then write(i,' ');
end;
readln
Giúp tớ giải ba câu hỏi này với
Tính lượng mưa trung bình của tháng 1
Chiến sự ở Đà nẵng những năm 1858-1859 diễn ra như thế nào?
Tại sao Pháp chiếm Đà Nẵng rồi mới đi thẳng ra Huế mà không tiến vào Huế ngay từ ban đầu?(bài 24) Tại sao thực dân Pháp xâm lược nước ta? Giúp mk vs Chiều mk thì rồi ạ 😭😭
giúp mình với ạ mình đang gấp xíu
Nêu nội dung và kết quả của hiệp ước Nhâm Tuất
giúp mìnhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh
Giúp vs chiều nay em nộp rồi. 😭😭😭
cho mk hỏi là bài thu hoạch về chuyến đi thực tế nếu có chữ mà ko có hình có sao ko?! -.-
Với đôi cánh đẫm nắng trời Bầy ong bay đến trọn đời tìm hoa Không gian là nẻo đường xa Thời gian vô tận mở ra sắc màu. Tìm nơi thăm thẳm rừng sâu Bập bùng hoa chuối, trắng màu hoa ban. Tìm nơi bờ biển sóng tràn Hàng cây chắn bão dịu dàng mùa hoa. Tìm nơi quần đảo khơi xa Có loài hoa nở như là không tên… Bầy ong rong ruổi trăm miền Rù rì đôi cánh nối liền mùa hoa Nối rừng hoang với biển xa Đất nơi đâu cũng tìm ra ngọt ngào. Câu 1 ; tìm phương thức biểu đạt chính ? Câu 2: chỉ ra và nếu tác dụng của một biện pháp tu từ trong hai câu thơ "bầy ong rong ruổi trăm miền Rù rì đôi cánh nối liền mùa hoa"
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
