Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Phan Nhật

Tại sao không xuất ra được chương trình này vậy? Giúp sửa lỗi :v

Var n,me,i,dem,c:longint;
Begin
Read(n);
me:=trunc(sqrt(n));
c:=1;
dem:=0;
Repeat
c:=c+1;
For i:=1 to c do
If (c mod i)=0 then inc(dem);
Until me=dem;
Readln
End.

Alexander William
14 tháng 3 2017 lúc 11:22

chỗ if (c mod i)= 0 á sửa thừ thành ((cmod i)=0)

Lưu Hiền
16 tháng 3 2017 lúc 22:10

mình ko hiểu lắm cái repeat until, nhưng sai ở đầu tiên luôn nhé, phải có writeln('n='); thì mới có readn(n) nhé:), chúc may mắn


Các câu hỏi tương tự
Nguyễn Minh Lệ
Xem chi tiết
Minh Lệ
Xem chi tiết
NHÓC BOSS GAMING
Xem chi tiết
Ba chú heo con
Xem chi tiết
nguyen ngoc minh chau
Xem chi tiết
sunion Ghast
Xem chi tiết
Hương Nguyễn
Xem chi tiết
Cold Wind
Xem chi tiết
•๖ۣۜNHa•
Xem chi tiết