uses crt;
var n,i,t,dem:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
writeln;
dem:=0;
t:=0;
for i:=1 to n do
if n mod i=0 then
begin
dem:=dem+1;
t:=t+i;
end;
writeln(dem);
writeln(t);
if (t=2*n) then writeln('Day la so hoan hao')
else writeln('Khong la so hoan hao');
readln;
end.
Bài 1: Viết chương trình Pascal nhập số từ bàn phím. Xuất ra màn hình:
+ Tính n!
+ Nhập số x từ bàn phím.Tính nx
Bài 2: Viết chương trình Pascal nhập số n từ bàn phím. Xuất ra màn hình
+ Dòng 1: Các ước của n
+ Dòng 2: Nếu n là số lẻ thì xuất ra màn hình các số nguyên tố từ 2 đến n
+ Dòng 3: Nếu n là chẵn thì xuất ra màn hình các số hoàn hảo từ 1 đến n
+ Dòng 4: Tổng các ước của n
( 2 bài khác nhau mọi người làm riêng ra giúp mình ạaaaaaa)
Viết chương trình pascal nhập n (N > 0) Xuất ra màn hình:
+ Các ước của n và cho biết có bao nhiêu ước.
+ Tổng các ước của n.
+ Xét tổng các ước của n có phải là số nguyên tố không?
Lưu ý: chỉ dùng lệnh while...do
viết chương trình nhập vào số tự nhiên N từ bàn phím và in ra màn hình tổng các ước của N
Viết chương trình nhập vào mảng gồm n số tự nhiên bất kì từ bàn phím tính và in ra màn hình tổng của các số là ước của 60 Bước 1 nhập mảng Bước 2 tong
viết chương trình thông báo ra màn hình các số có 3 ước số trong khoảng từ 1 đến n với n nhập từ bàn phím
viết chương trình pascal sử dụng biến mảng để nhập n số nguyên từ bàn phím in ra màn hình tổng các số đó ( N cũng được nhập từ bàn phím )
viết chương trình nhập vào số tự nhiên n từ bàn phím và kiểm tra n có phải là số hoàn chỉnh không (Số hoàn chỉnh là 1 số có tổng các ước nhỏ hơn nó bằng chính nó).
Viết chương trình nhập vào số nguyên. Xuất ra màn hình và đếm các ước số của n.
Vd: nhập n=9
Các ước số của 9 là 1,3,9
9 có 3 ước
Viết chương trình nhập vào máy tính số tự nhiên N in ra màn hình các ước của N và số lượng các ước bằng bao nhiêu?
Thược hiện bằng phần mềm free pascal
viết chương trình nhập 2 số tự nhiên m, n từ bàn phím, in ra màn hình. a) tất cả các ước chung của m và n. b)_ UCLN,BCNN của m và n
