Đề ở bên dưới: Mọi người ktra giùm mik luôn: Uses CRT; Var i,n: Integer; Function ktnt (n: Integer): Boolean; Var i,d,j: Integer; Begin d:=0; If n<2 then ktnt:=false Else For i:=1 to n do For j:=1 to i do Begin If i mod 2=0 then d:=d+1; If d=2 then ktnt:=true Else ktnt:=false; End; End; Begin ClrScr; Write ( 'Nhap so nguyen n: ' ); Readln (n); Write ( 'Day so hanh phuc: ' ); For i:=n downto 1 do If (ktnt(i)=true) or (n mod i=0) then Write (i,' '); Readln; End. Kq bài của mik ko đủ ạ! 8 4 3 2 1

Mik sắp hết điểm r ráng nha mấy bạn:(((

giải hộ mình bài4.10 với mình đang cần gấp

làm nhanh giúp mình nhé cảm ơn nhiều

Nhận xét của em về hình ảnh trái đất trước khi trẻ em ra đời I

SỐ HỌC SINH 4 KHỐI 6,7,8,9 TỈ LỆ VỚI CÁC SỐ 9,8,7,6.BIẾT RẰNG LÀ SỐ HỌC SINHKHOOIS 9 ÍT HƠN SỐ HS KHỐI 7 LÀ 7 HS.TÍNH SỐ HS MỖI KHỐI(ÁP DỤNG KIẾN THỨC DÃY TỈ SÔ BẰNG NHAU)

Giúp mình vớiiii :((( CÂU 10:Cho m gam sắt tác dụng vừa đủ với 122,5 gam dung dịch H2SO4 20% thu được dung dịch A. a. lập phương trình hóa học và tính m (g) sắt. b. Tính khối lượng FeSO4, tạo thành sau phản ứng và nòng độ phần trăm (C%) của chất tan trong dung dịch A. c.Tính nồng độ mol (CM) của dung dịch H2SO4, biết khối lương riêng của dung dịch H2SO4 (DH2SO4) là 1.14g/ml.

Giup mik câu 1b 2 cd 3c 4 5 vs ạ mik đag cần gấp

1, Tính a, 84 : 4 + 3 mũ 9 : 3 mũ 7 +2021 b, 128 - [ 68 + 8 . ( 37 - 35 ) mũ 2 : 4 2.tìm x 450 : ( x + 5 ) = 50 b, 3 mũ 2018 . ( x - 3 ) = 3 mũ 2022

Khử hoàn toàn 10,23g hỗn hợp 2 oxit là CuO và PbO bằng khí CO ở nhiệt độ cao. Toàn bộ lượn khí CO2 sinh ra dc dẫn qua bình đựng đ Ca(OH)2 dư , pu xong thu dc 11g kết tủa a, viết pthh b,thể tích khí CO c tính tp% theo khối lg mỗi oxit trong hỗn hợp