Chu Quang Lượng
22/05/2004
| Số câu hỏi | 0 |
| Số câu trả lời | 2 |
| Điểm | 5 |
| Kết bạn | |
Bạn bè (0)
Hoạt động gần đây (2)
-
Chu Quang Lượng đã trả lời trong câu hỏi: Viết chương trình bằng vòng lặp While? Cách đây 5 năm
program so_hoan_chinh;
uses crt;
var a,i,s : integer;
BEGIN
clrscr;
write('Nhap so tu nhien can kiem tra: '); readln(a);
s:=0;
i:=1;
while i<a do
begin
if a mod i = 0 then s:=s+i;
i:=i+1
end;
if s=a then writeln(a,' la so hoan chinh') else write(a,' khong phai so hoan chinh');
readln;
END. -
Chu Quang Lượng đã trả lời trong câu hỏi: Viết chương trình bằng vòng lặp While? Cách đây 5 năm
program so_hoan_chinh;
uses crt;
var a,i,s : integer;
BEGIN
clrscr;
write('Nhap so tu nhien can kiem tra: '); readln(a);
s:=0;
i:=1;
while i<a do
begin
if a mod i = 0 then s:=s+i;
i:=i+1
end;
if s=a then writeln(a,' la so hoan chinh') else write(a,' khong phai so hoan chinh');
readln;
END.
