viết chương trình nhập vào số tự nhiên n và tính tổng các ước số của n mà các ước số đó là số nguyên tố.Giải thích n=6 thì ta có các ước số của 6 là 1,2,3,6.Trong đó các ước số là các số nguyên tố chỉ có 2 và 3.Vậy kết quả bằng 5(Pascal). Giúp mik v các bn
Những câu hỏi liên quan
Câu 1: Viết chương trình nhập vào số tự nhiên N (0<N<10000). In ra màn hình các yêu cầu sau:
Các ước số là số tự nhiên của N.
Các ước số là số nguyên tố của N, nếu không có ước số nguyên tố xuất ra số 0.
program bai_1;
uses crt;
var i,n,j,d,dem:word;
begin
clrscr;
repeat
write('nhap n:');readln(n);
if (n<=0)or(n>=10000)then writeln('so ban nhap khong hop le, ban hay nhap lai:');
until (n>0)and(n<10000);
writeln('cac uoc so la so tu nhien cua ',n,' la:');
for i:=1 to n do
if n mod i=0 then write(i,' ');
writeln;
dem:=0;
for i:=2 to n do
begin
d:=0;
for j:=2 to i div 2 do
if i mod j=0 then inc(d);
if (d=0)and(n mod i=0)then inc(dem);
end;
if dem>0 then writeln('cac uoc so la so nguyen to cua ',n,' la:');
begin
d:=0;
for j:=2 to i div 2 do
if i mod j=0 then inc(d);
if (d=0)and(n mod i=0)then write(i,' ');
end;
if dem=0 then write(0);
readln;
end.
Đúng 0
Bình luận (0)
Em hãy viết chương trình Pascal nhập vào một số tự nhiên n thoả mãn 2n100, 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ố.
Đọc tiếp
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 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
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.
Đúng 2
Bình luận (1)
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
#include <bits/stdc++.h>
using namespace std;
long long i,n,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
if (n%i==0)
{
cout<<i<<" ";
dem++;
}
cout<<endl;
cout<<dem;
return 0;
}
Đúng 0
Bình luận (0)
a) Số nguyên a được gọi là số hoàn thiện khi và chỉ khi tổng các ước dương của a (trừ ước a) bằng chính nó. Ví dụ 6 là số hoàn chỉnh vì 6 có các ước là 1,2,3 và tổng các ước là 1+2+36. Viết trương chình nhập vào số dương n từ bàn phím (0≤ n ≤ 1000). In lên màn hình tất cả các số hoàn chỉnh dương nhỏ hơn hoặc bằng n.b)Trong toán học n! (đọc là giai thừa) dược định nghĩa như sau:Qui ước: 0!1 n!1.2.3...nVd: 4!1.2.3.424Viết trương trình nhập từ bàn phím số nguyên n (0≤ n ≤ 20). Tính v...
Đọc tiếp
a) Số nguyên a được gọi là số hoàn thiện khi và chỉ khi tổng các ước dương của a (trừ ước a) bằng chính nó. Ví dụ 6 là số hoàn chỉnh vì 6 có các ước là 1,2,3 và tổng các ước là 1+2+3=6. Viết trương chình nhập vào số dương n từ bàn phím (0≤ n ≤ 1000). In lên màn hình tất cả các số hoàn chỉnh dương nhỏ hơn hoặc bằng n.
b)Trong toán học n! (đọc là giai thừa) dược định nghĩa như sau:
Qui ước: 0!=1
n!=1.2.3...n
Vd: 4!=1.2.3.4=24
Viết trương trình nhập từ bàn phím số nguyên n (0≤ n ≤ 20). Tính và in lên màn hình n!
a)
uses crt;
var n,i,t,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
t:=0;
for j:=1 to i-1 do
if i mod j=0 then t:=t+j;
if t=i then write(i:4);
end;
readln;
end.
Đúng 1
Bình luận (0)
b)
uses crt;
var gt:real;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
gt:=1;
for i:=1 to n do
gt:=gt*i;
writeln(gt:0:0);
readln;
end.
Đúng 1
Bình luận (0)
16 tháng 3 2021 lúc 20:36
1. Viết chương trình tính tổng các số nguyên tố từ 1 đến 100 2.Số nguyên dương P được gọi là ước thực sự của số nguyên n nếu n chia hết cho P và P khác 1 và khadc chính số n . Viết thuật toán và chương trình nhập số tự nhiên n và tính tổng của nó
1:
uses crt;
var i,j,t,kt:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do
if i>1 then
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then t:=t+i;
end;
writeln(t);
readln;
end.
Đúng 1
Bình luận (4)
Câu 2:
*Viết chương trình:
uses crt;
var n,p,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for p:=2 to n-1 do
if n mod p=0 then t:=t+p;
writeln('Tong cac uoc that su cua ',n,' la: ',t);
readln;
end.
Đúng 1
Bình luận (0)
Dễ mà bạn tự làm đi
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 ạ
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if n mod i=0 then
begin
write(i:4);
t:=t+i;
end;
writeln;
writeln('Tong cac uoc cua ',n,' la: ',t);
readln;
end.
Đúng 1
Bình luận (0)
Số hoàn hảo là số mà tổng các ước của nó bằng 2 lần chính nó.Ví dụ: 6 là số hoàn hảo vì 6 có tổng ước là 1+2+3+6122 lần 61+2+3+6122 lần số là số hoàn hảo vì 61Yêu cầu: Viết chương trình nhập vào số nguyên n. In ra chữ YES nếu n là số hoàn hảo, ngược lại ghi chữ NO
Đọc tiếp
Số hoàn hảo là số mà tổng các ước của nó bằng 2 lần chính nó.
Ví dụ: 6 là số hoàn hảo vì 6 có tổng ước là 1+2+3+6=12=2 lần 61+2+3+6=12=2 lần số là số hoàn hảo vì 6
1
Yêu cầu: Viết chương trình nhập vào số nguyên n. In ra chữ YES nếu n là số hoàn hảo, ngược lại ghi chữ NO
program so_hoan_hao;
var
n, tong_uoc, i: integer;
begin
writeln('Nhap vao mot so nguyen duong n:');
readln(n);
tong_uoc := 0;
for i := 1 to n-1 do
begin
if n mod i = 0 then
tong_uoc := tong_uoc + i;
end;
if tong_uoc = n then
writeln('YES')
else
writeln('NO');
end.
Đúng 2
Bình luận (0)
Viết chương trình sử dụng lệnh lặp While ... do ... để thực hiện công việc sau
- Nhập vào số nguyên n (10<n<100)
-In ra màn hình tất cả các ước của n
-Tính tổng và thông báo các ước của n là số chẵn
program tim_uoc;
uses crt;
var i,n,tong:integer;
begin
clrscr;
write('nhap so n:');readln(n);
i:=1;tong:=0;
writeln('cac uoc cua ',n,' la:');
while i<=n do
if n mod i=0 then
begin
write(i:3);
inc(i);
end;
writeln;
i:=1;writeln('cac uoc chan:');
while i<=n do
begin
if n mod i=0 then
begin
if i mod 2=0 then write(i:3);
tong:=tong+i;
end;
end;
writeln;
write('tong cac uoc chan:',tong);
readln;
end.
Đúng 0
Bình luận (0)
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
writeln('Cac uoc cua ',n,' la: ');
while i<=n do
begin
if n mod i=0 then write(i:4):
i:=i+1;
end;
writeln;
writeln('Cac uoc chan cua ',n,' la: ');
t:=0;
i:=1;
while i<=n do
begin
if (n mod i=0) then
begin
t:=t+i;
write(i:4);
end;
inc(i);
end;
writeln('Tong cac uoc chan cua ',n,' la: ',t);
readln;
end.
Đúng 0
Bình luận (0)