Bài 7. Câu lênh lặp

Kisaragi Saya

Viết chương trình nhập vào 1 số nguyên N in ra màn hình các số hoàn chỉnh nhỏ hơn hoặc bằng N.

Helpppppp meeeeeeee!!!!

Đỗ Tuệ Lâm
17 tháng 2 2022 lúc 7:10

{program bt_1;
uses crt;
Var:S ,n, i, j:longint;
Begin 
  clrsr;
  Write('Nhap n');Readln(n);
    For i:=1 to n do
    Begin
      S:=0;
      For j:=0 to i do
      if i mod j:=0 then S:=S+j;
      if S=2*i then Write (i:5);
    end;
readln;
end.
}

Bình luận (0)
Lưu Nguyễn Hải Nam
6 tháng 12 2023 lúc 18:54

PASSCAL HAY???

 

Bình luận (0)

Các câu hỏi tương tự
Lê Đăng Khôi
Xem chi tiết
Kisaragi Saya
Xem chi tiết
Phan Thị Ka
Xem chi tiết
NgocTuan
Xem chi tiết
Gia Kỳ
Xem chi tiết
Tiên Võ
Xem chi tiết
Trần Đức Huy
Xem chi tiết
nh78844
Xem chi tiết
Mai thị tố uyên
Xem chi tiết