gửi ạ
xin hay nhất
-chit-
Gửi bạn nà ><# Myse
Chọn câu đúng, Ai nhanh nhất cho hay nhất:>
cho hàm số y=f(x)=(5-3a)x+a+6 biết f(-2)=10 tính f(2) giúp với
tìm gtln: A= -2x ² + 4x - 3y ² + 9y + 31 cíuuuu vs mn
Nếu trẻ em nuốt mảnh chai cắt ra mai có đi nặng có ra cái mảnh đấy không. Và các triệu chứng như thế nào
Kho A có nhiều hơn kho B 18 tạ thóc và nếu lấy số thóc kho A chia cho số thóc kho B thì được thương là 3. Tìm số thóc ở kho A.
Viết 1 đoạn văn ngắn bằng tiếng anh nói về đọc sách
Giúp mình với ạ mình đang cần gấp lắm ạ ai trả lời trước mình cho 5 sao
Viết 1 đoạn trình đoạn văn trình bày cảm nhận của em về vb lão hạc theo kiểu tổng phân hợp ( từ 8 đến10 câu) k chép mang
Viết cấu hình e của các nguyên tử có Z = 11, 19, 8, 16, 18, 22, 24, 26, 29. Nhận xét về cấu hình e của các nguyên tử và cho biết nguyên tố nào là kim loại? phi kim? khí hiếm?
Kiểm tra giúp mik với ja, mik sai chỗ nào mà nó không ra số lượng số nguyên tố vậy ạ? Uses CRT; Var a: Array [1..100] of Integer; i,n,p,s: Integer; Function ktnt (n: Integer): Boolean; Var i,d,p: Integer; Begin d:=0; If n<2 then ktnt:=false Else Begin p:=0; For i:=1 to n do If n mod i=0 then d:=d+1; End; If d=2 then ktnt:=true Else ktnt:=false; End; Function kthh (n:Integer): Boolean; Var i,s: Integer; Begin s:=0; For i:=1 to n div 2 do If n mod i=0 then s:=s+i; If s=n then kthh:=true Else kthh:=false; End; Begin ClrScr; Write ( 'Nhap so nguyen n: '); Readln (n); For i:=1 to n do Begin Write ( 'Nhap phan tu thu ',i,': '); Readln (a[i]); End; Write ( 'Cac so nguyen to co trong day tren la: ' ); For i:=1 to n do Begin If ktnt (a[i])=true then Begin Write (a[i],' '); End; End; For i:=1 to n do If ktnt (a[i])=true then p:=p+1; Writeln; Write ( 'Cac so hoan hao co trong day tren la: '); For i:=1 to n do If kthh (a[i])=true then Write(a[i],' '); Readln; End.
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến