Bài 6. Câu lệnh điều kiện

Duy Thanh Bùi

viết chương trình in ra màn hình các số hoàn hảo trong khoảng từ 1 đến N Với N nguyên dương nhập từ bàn phím

Phía sau một cô gái
20 tháng 3 2023 lúc 19:57

program SoHoanHao;

uses crt;

var

     i, j, n, s: integer;

begin

     clrscr;

     write('Nhap n: ');

     readln(n);

     for i := 1 to n do

     begin

          s := 0;

          for j := 1 to i - 1 do

          begin

               if i mod j = 0 then

                    s := s + j;

               end;

               if s = i then

                    writeln(i);

     end;

     readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Duy Thanh Bùi
Xem chi tiết
Duy Thanh Bùi
Xem chi tiết
Thiên Phúc
Xem chi tiết
Snsbbdbd Xnxb
Xem chi tiết
Huy Tùng Vũ
Xem chi tiết
LQmobi Acc
Xem chi tiết
Phạm Hải Đăng
Xem chi tiết
Thiên Phúc
Xem chi tiết
Đào Cẩm
Xem chi tiết