program shdfj; ( đặt tên nào cũng được)

uses crt;

var n,i:integer;

begin

clrscr;

write('n=');

readln(n);

for i:=1 to n do if (n mod i) = 0 then write(i);

readln;

end

bạn làm thử đi được đó

nếu sai thì thông cảm cho mình nhé

chỗ mà 5/2 nhé. không phải là phép chia mà gán nhé mình bất cẩn quá . xin lỗi

lỗi thứ 1:

uses ; crt ; ➝ uses crt;

lỗi thứ 2:

bạn đã khai báo y là số nguyên thì không thể thực hiện được phép chia 5/2 được nên phải khai báo y là số thực( mình chỉ giải thích thêm thôi)

nên sửa lại:

var x,y;real; hay Var x:real; y:real;

và thêm dấu chấm phẩy vào sau y:=5/2

lỗi thứ 3

phải thêm dấu hai chấm và dáu chấm phẩy vào y:=x+y;

nếu bạn để trùng cũng được bởi vì pascal chạy tuần tự từng câu lệnh

lỗi thứ 4:

thêm end vào cuối bài nữa nhé (nếu bạn muốn xem chương trình thì thêm readln trên end nhé)

nếu thiếu bỏ qua cho mình nhé

2014x a+ 2014x 79= 201400

2014x (a+ 79)= 201400

          a+ 79= 201400: 2014

          a+ 79= 100

          a      = 100- 79

          a      = 21

câu hỏi đâu bạn