2b:
- đầu tiên nhập một số n bất kỳ
- sau đó chúng ta cho for chạy từ 1 tới số nguyên vừa nhập
- nếu số n vừa nhập chia hết cho số i trong for thì viết số i đó ra màn hình
2c:
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
2b:
- đầu tiên nhập một số n bất kỳ
- sau đó chúng ta cho for chạy từ 1 tới số nguyên vừa nhập
- nếu số n vừa nhập chia hết cho số i trong for thì viết số i đó ra màn hình
2c:
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.