program so_hoan_chinh;
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
S:=0;
for i:=1 to n div 2 do
if n mod i=0 then t:=t+i;
if n=t then write('La so hoan hao')
else write('Khong phai so hoan hao');
readln;
end.
Xin nhat
Program SHC;
Uses crt;
VAR
BEGIN
Write('Nhap n:');Readln(n);
For i:= 1 to n do
If n mod i = 0 then S:= S+i;
If S=n then Write(n, ' la so hoan chinh')
Else Write(n, ' khong phai so hoan chinh');
Readln
END.
Bác an trồng cây trên mảnh vườn hình chữ nhật ,bác dự định trồng theo từng hàng và mỗi hàng có số cây bằng nhau .Nếu tăng thêm 1 hàng nhưng mỗi hàng bớt đi một cây thì số cây phải trồng tăng thêm 10 cây .Nếu bớt đi một hàng nhưng tăng thêm mỗi hàng 2 cây thì số cây phải trồng tăng thêm 9 cây .Hỏi số lượng cây mà bác An dự định trồng là bao nhiêu?
làm câu 2 vs câu 4 thôi ạ . CẢM ƠN TRC
Kể tên những loại xe được quyền ưu tiên khi có đèn đỏ ( ít nhất là 5 loại xe).
hãy viết một đoạn văn về 1 địa điểm du lịch nổi tiếng của châu đại dương( lm hộ mk nhé mk sẽ vote 5 sao và cho ctlhn ạ)😊😊
Trong mặt phẳng tọa độ Oxy cho 2 đường thẳng: d1:y=mx-2m d2:x-my=m+1 Với giá trị nào của m thì d1 cắt d2 tại điểm M (x;y) thuộc góc phần tư thứ nhất sao cho biểu thức P=x.y đạt giá trị lớn nhất
Hiệu quả nghệ thuật có khác với tác dụng hay không? Giải thích
công thức chia "thì hiện tại đơn , thì hiện tại hoàn thành, thì quá khứ đơn''
Vẽ anime @ Dẹo là j thế các pác, sao các bạn e cứ nói e dẹo nhỉ
khi tăng nhiệt độ của thanh thép sẽ như thế nào?
em có nhận xét gì về chính sách hạn nô của vua Lê Thánh Tông
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
