program ct;
uses crt;
var i,n,d:integer;
begin clrscr;
write('Nhap so n: '); readln(n);
if n mod 2=0 then writeln(n,' la so chan')
else writeln(n,' la so le');
d:=0;
for i:=1 to n do
if n mod i =0 then d:=d+1;
if d=2 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
readln;
end.
Học tốt!
var d,i,n:integer;
begin
clrscr;
write('nhap mot so nguyen:=');readln(n);
{-------- cau a -------}
else writeln(n,' la so le')
{-------- cau b-------}
if n mod i=0 then d:=d+1;
if d=2 then writeln(n,' la so nguyen to') else writeln(n,' khong phai so nguyen to');
readln
bài 1,2,3,4 đè 5 thôi nhé cảm ơn
sắp xếp: 1. ever seen/ awful / such / the first time/ tornado./had/It/I/was/an/ 2.the debris ./ By the time/ they hadn't / we got/there,/cleared up 3.areas/to safe/had/struck./before/Most people/moved/the storm/ 4.experienced/Had/a hot summer/before/such/ you/2000?/
Nhiệt độ không khí thay đổi như thế nào theo vĩ độ dịa lý
ý nghĩa tâm linh của đàn t rưng
câu 1 ; thế nào là nhiễm trùng , nhiễm độc an toàn thực phẩm ? câu 2 nêu ảnh hưởng của nhiệt độ đối với vi khuẩn câu 3 nêu nguyên nhân gây ngộ độc thức ăn và biện pháp phòng tránh câu 4 hãy kể tên các phương pháp chế biến có sử dụng nhiệt và ko sử dụng nhiệt . làm hản hoi nha mai mk kt rùi
trên một bản vẽ kĩ thuật có tỉ lệ xích là 1: 125 , chiều dài của 1 chiếc máy bay Bô-ing 747 khoảng 56,408 . Vậy chiều dài thật tính theo mét của chiếc máy bay đó là bao nhiêu ? tóm tắt nữa nha
C1:tại sao cá sấu lại rơi nước mắt C2:so sánh tập tính của thằn lằn và thỏ
trình bày sự phân hóa của khí hậu bắc mỹ giải thích sự phân hóa đó
ai vẽ hình BILLEI EILISH CHIP giúp e đc hk ak hk chép mạng
Nêu các kiểu khí hậu ơi Bắc và Nam Mĩ. Nêu nhận xét
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
