b. Mã chương trình:
-
var f,g: text;
n,i,s: integer;
begin
Assign(f,’bai3_5.inp’); reset(f);
Assign(g,’bai3_5.out’); rewrite(g);
readln(f,n);
s:=0;
for i:= 1 to n -1 do if n mod i = 0 then s:=s+i;
if s = n then write(g,n, ' la so hoan chinh')
else writeln(g,n,' khong phai la so hoan chinh');
close(f); close(g);
end.
|
Bài tập 3.6:
Viết chương trình tìm các số hoàn chỉnh nhỏ hơn n (Với n được nhập từ file).
a. Hướng dẫn:
Cho biến i chạy từ 1 đến n. Xét i. Nếu nó là số hoàn chỉnh thì in ra.
b. Mã chương trình:
-
Var f,g: text;
S,n,i,j: longint;
Begin
Assign(f,’bai3_6.inp’); reset(f);
Assign(g,’bai3_6.out’); rewrite(g);
readln(f,n);
For i:=1 to n do
Begin
S:=0;
For j:=1 to i do if i mod j = 0 then S:=S+j;
if S = 2*i then write(g,i:6,',');
end;
close(f); close(g);
end.
|
Chia sẻ với bạn bè của bạn: |