OPTADS360
ATNETWORK
RANDOM
ON
YOMEDIA
Banner-Video
IN_IMAGE

Viết chương trình bằng vòng lặp While?

Một số có tổng các ước nhỏ hơn nó bằng chính nó được gọi là số hoàn chỉnh.
Ví dụ: 6 có các ước nhỏ hơn nó là 1, 2, 3. Tổng là 1 + 2 + 3 = 6.
Viết chương trình bằng vòng lặp While xét xem một số n được nhập từ bàn phím có phải là số hoàn chỉnh không.

  bởi Lê Trần Khánh Duy 13/08/2019
AMBIENT-ADSENSE/lession_isads=0
QUẢNG CÁO
 

Câu trả lời (4)

  • Bạn có thể lấy những Ví Dụ trong sách, từ đó suy ra cách viết nha. Câu này cũng dễ, nhưng bạn cần phải suy nghĩ!

      bởi Vũ Tuấn David 16/08/2019
    Like (0) Báo cáo sai phạ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.

      bởi Chu Quang Lượng 19/09/2019
    Like (0) Báo cáo sai phạ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.

      bởi Chu Quang Lượng 19/09/2019
    Like (0) Báo cáo sai phạm

  • var  i,n,s:integer;

    begin

    readln(n);

    s:=0;

    for i:=1 to n div 2 do

    if n mod i = 0 then

    s:=s+i;

    if n= s then

    Writeln(n,' la so hoan hao'); else write(n,'khong la so hoan hao');

    readln

    end.

      bởi Trần Bùi Hà Trang 05/10/2019
    Like (0) Báo cáo sai phạm
Cách tích điểm HP

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
 

Các câu hỏi mới

NONE
OFF

XEM NHANH CHƯƠNG TRÌNH LỚP 8