K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
CH
0
TT
1
10 tháng 10 2022
uses crt;
var n,i,t,j,t1:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
begin
t1:=0;
for j:=2 to n div 2 do
if i mod j=0 then t1:=t1+j;
if t1=i then t:=t+i;
end;
writeln(t);
readln;
end.
TT
1
10 tháng 10 2022
uses crt;
var n,i,t,j,t1:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
begin
t1:=0;
for j:=2 to n div 2 do
if i mod j=0 then t1:=t1+j;
if t1=i then t:=t+i;
end;
writeln(t);
readln;
end.
TT
1
10 tháng 10 2022
uses crt;
var n,i,t,j,t1:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
begin
t1:=0;
for j:=2 to n div 2 do
if i mod j=0 then t1:=t1+j;
if t1=i then t:=t+i;
end;
writeln(t);
readln;
end.