OPTADS360
ATNETWORK
RANDOM
ON
YOMEDIA

Chu Quang Lượng's Profile

Chu Quang Lượng

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.

Không có Điểm thưởng gần đây

OFF