Viết chương trình tìm các số hoàn chỉnh nhỏ hơn n ( vs n đc nhập từ bàn phím )
2 câu trả lời
program hello;
uses crt;
var s,n,j,i: longint;
begin
clrscr;
write('nhap n :'); readln(n);
for i:=1 to n-1 do begin
s:=0;
for j:=1 to i-1 do if i mod j = 0 then s:=s+j;
end;
readln
end.
uses crt;
var s,n,i,d:longint
begin
clrscr
write('n');
read(n);
s:=0
if s<n then
for i:=1 to n do
begin
s:=0;
for i:=1 to d do
if i mod d=0 then s:=s+d;
if s= 2*i then write(s);
end;
readln;
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
