var i,n,s,du,dem:integer;
Begin
While n<=0 do
Begin
Write('N = ');readln(n);
End;
For i:=1 to n do
If n mod i = 0 then
Begin
Write(i:7);
du:=du+1;
s:=s+i;
End;
Writeln('So uoc cua ',n,' la ',du);
Writeln('Tong cac uoc cua ',n,' la ',s);
For i:=1 to s do
If s mod i = 0 then dem:=dem+1;
If dem=2 then write(s,' la so nguyen to')
Else write(s,' khong la so nguyen to');
Readln;
End.
Bài 1: Viết chương trình Pascal nhập n (n>0). Xuất ra màn hình:
các số nguyên tố từ 2 đến n và cho biết có bao nhiêu số nguyên tố từ 2 đến n
Lưu ý : Dùng lệnh While...do hoặc Repeat....until
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
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)
Em hãy viết chương trình Pascal nhập vào một số tự nhiên n thoả mãn 2<n<100, nếu sai yêu cầu nhập lại, tính và in ra các ước của n, nếu n chỉ có hai ước, hãy thông báo n là số nguyên tố.
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ột số nguyên dương n . Rồi xuất ra màn hình các yêu cầu sau:
a, Số n có bao nhiêu chữ só.
b, Tổng các chữ số của n.
c, Số n có phải là số nguyên tố không.
d, Tổng các chữ số của nó có phải là số nguyên tố không.
mn giúp em vs ạ
Em hãy viết chương trình nhập vào một số nguyên n in ra các ước của số n và tính tổng các ước của số n
Giúp mình với.Mình cảm ơ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
