program bai1;
uses crt;
var n: integer;
a: array[1..1000] of integer;
i: integer;
begin
clrscr;
write ('N = '); readln (n);
for i:=1 to n do begin write ('a[',i,'] = '); readln (a[i]); end;
write ('Ket qua = ')
for i:=1 to n do if (a[i] mod 3 = 0) and (a[i] mod 5 = 0) then write (a[i],' ');
readln;
end.
var A : array [1 .. 100] of integer;
i, n, d : integer;
d := 0;
write('Nhap so n = '); readln(n);
write('Nhap day gom ', n ,' so : ');
for i := 1 to n do begin read(A[i]);
if (A[i] mod 3 = 0) and (A[i] mod 5 = 0)
then d := d + 1; end;
writeln('Day co ', d ,' so chia het cho 3 va 5');
readln
1 gen có số kiên kết hidro là 3900. Gen đó có G ² - A ² = 5% a) Tính số nucleotit từng loại của gen? b) tính chiều dài của gen
Bài 1: Tìm giá trị của tỉ số x/y, biết: a) 3x-y/x+y = 3/4 b) 2x-y/x+y = 2/7
Theo bạn hiện tại các chính sách của nhà nước đối với trẻ em như vậy có đầy đủ chưa và nêu ra đề xuất thực hiện trong thời gian tới ? ( Viết không quá 2 trang giấy A4 ) Mong mọi người giúp em ạ , em đang cần câu trả lời gấp , em sẽ vote 5 sao cho m.n ạ
Giải hộ em câu này vs em cần gấp
hãy lấy dẫn chứng cho thấy việc khai thác rừng quá mức sẽ tác động xấu đến môi trường
B1 : Phân tích đa thức sau thành nhân tử : a. 8x mũ 6 - 27 b. 27x mũ 3y mũ 2 - 64 c. 125 - 75n + 9m mũ 2 - m mũ 3 d. 27a mũ 3 - 54ab + 36ab mũ 2 + 8b mũ 3 e. x mũ 4 - 4x mũ 2y + 4y mũ 2 f. 9x mũ - 12x mũ 7 + 4x8 giúp vs ạ
mẹ bạn Hồng đi chợ mua một con gà trống , một con gà mái và một con vịt .Cả 3 con cân nặng 4300g . Biết con gà trống n\nặng 1900g , con gà mái nặng 1kg 400g .Em tính xem con vịt cân nặng bao nhiêu kg
giúp mình ạ ngắn thui nhoa cấm báo cáo ai báo cáo báo lại 😪
Giúp với 2 bài này thôi Dễ lắm
Ở người 20 tế bào phát sinh giao tử trong đó 2 tế bào phát sinh giao tử cái =1/3 số tế bào phát sinh giao tử đực . Hãy xác định số giao tử cái và đực tạo thành ở người . Giúp mình với ạ
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
