uses crt;
var i,n,d: longint;
function kt(n: integer): boolean;
var a: array[1..20] of byte;
k: integer;
s: byte;
begin
k:=n;
repeat
i:=i+1;
a[i]:=n mod 10;
n:=n div 10;
s:=s+a[i];
if k mod s=0 then kt:=true
else kt:=false;
until n=0;
end;
clrscr;
write ('nhap n: '); readln (n);
for i:=1 to n do
if kt(i)=true then d:=d+1;
readln;
end.
Người ta bỏ một miếng hợp kim chì và kẽm khối lượng 50g ở nhiệt độ 136 độ C vào một nhiệt lượng kế chứa 50g nước ở 14 độ C. Biết nhiệt độ khi có cân bằng nhiệt là 18độ C và muốn cho nhiệt lượng kế nóng thêm lên 1độ C thì cần 65,1J; nhiệt dung riêng của kẽm là 210J/kg.K, của chì là 130J/kg.K, của nước là 4200J/kg.K. Hỏi có bao nhiêu gam chì và bao nhiêu gam kẽm trong hợp kim?
Giúp mình với sắp nộp rồi ạ Không làm đc mình đúp mất 😞😞
Bài 3 nếu mình giải đúng thì nói đúng nếu mình giải sai thì sửa lại nha
trong các tấm gương yêu nước của khởi nghĩa lam sơn em thích, sự kiện nhân vật lịch sử nào nhất ? vì sao
Vẽ đậu mầm Lề : Mn ơi cho mik hỏi quần áo pass vs sỉ là j ạ ;-;
Giúp mik câu a, b bài 3 đề 2 với ạ
Em hãy nêu các quyền trẻ em đc ghi nhận trong luật bảo vệ chăm sóc giáo dục trẻ em VN, mỗi quyền cho 1 ví dụ.
Vì sao khi ta bịt mũi miệng thở mạnh thì bị bùng tai ?
Mong anh chị giúp cháu em làm thành một bài TLV có Mở Bài TB KB dựa trên câu 2 đề phía dưới ạ. Mong được giúp đỡ ạ
Bệnh do yếu tố sinh học gây ra cho vật nuôi gồm những loại bệnh nào?
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
