YOMEDIA
NONE

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.

Theo dõi Vi phạm
ADSENSE

Trả lời (4)

  • Vũ Tuấn David

    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
    • YOMEDIA

    Video HD đặt và trả lời câu hỏi - Tích lũy điểm thưởng

  • Chu Quang Lượng

    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
  • Chu Quang Lượng

    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
  • Trần Bùi Hà Trang

    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
 
NONE

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

AANETWORK
 

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

 

YOMEDIA
AANETWORK
OFF