Tin học viết chương trình xét xem n có phải là số hoàn chỉnh không 21/07/2021 By Valentina viết chương trình xét xem n có phải là số hoàn chỉnh không
Xin nhat Program SHC; Uses crt; VAR BEGIN clrscr; 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. Trả lời
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. Trả lời
Xin nhat
Program SHC;
Uses crt;
VAR
BEGIN
clrscr;
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.
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.