xét xem các số sau có phải là số nguyên tố không:a) 859 b)2731
Những câu hỏi liên quan
xét xem các số sau có phải là số nguyên tố không:a) 859 b)2731
Ta có:
Hai số sau:
859 và 2731
đều là những số nguyên tố
vì: Những số trên đều chỉ có hai ước là 1 và chính nó.
Đúng 0
Bình luận (0)
c1:không dùng bảng nguyên tố hãy xét xem các số sau là số nguyên tố hay hợp số :163;1979;841;79507;1681
Viết ct nhập vào một mảnh gồm N số nguyên dương (N nguyên dương nhập từ bàn phím, N<=100) sau đó
a) tính tổng các số là bội của 3
b) tìm giá trị lớn nhất của mảng
c) Xét xem phần tử đầu tiên của mảng có phải là số nguyên tố hay ko
c) Cho biết các giá trị của mảng đc sx theo thứ tự ko gian chưa
Không làm phép tính, xét xem các số sau là số nguyên tố hay hợp số:
a) A = 1.3.5.7.9 + 20;
b) 5 = 21.22.23-6.7.8.
Xét xem các số sau là số nguyên tố hay hợp số
a, 3155+2570
b,2832-1125
c,19.21.23+21.27
d,15.23.37-455
viết chương trình pascal nhập n thực hiệndòng 1 xuất ra màn hình các chữ số của ndòng 2 tổng các chữ số của n và xét xem tổng đó có phải là số nguyên tố khôngdòng 3 các chữ số ở vị trí lẻ của n và tổng của chúng. Xét tổng đó có phải là số chính phương khôngdòng 4 các chữ số ở vị trí chẵn của n và tổng của chúng. Xét tổng đó có phải là số hoàn hảo khôngdòng 5 số lớn nhất và số nhỏ nhất của n và tổng của hai số đó Giúp với !!
Đọc tiếp
viết chương trình pascal nhập n thực hiện
dòng 1 xuất ra màn hình các chữ số của n
dòng 2 tổng các chữ số của n và xét xem tổng đó có phải là số nguyên tố không
dòng 3 các chữ số ở vị trí lẻ của n và tổng của chúng. Xét tổng đó có phải là số chính phương không
dòng 4 các chữ số ở vị trí chẵn của n và tổng của chúng. Xét tổng đó có phải là số hoàn hảo không
dòng 5 số lớn nhất và số nhỏ nhất của n và tổng của hai số đó
Giúp với !!
uses crt;
var n,i,d,dem,kt,t,kt1,t1,t2,t3,max,min,x,j:integer;
a,b:array[1..100]of integer;
st:string;
begin
clrscr;
write('Nhap n='); readln(n);
str(n,st);
d:=length(st);
for i:=1 to d do
val(st[i],a[i],x);
dem:=1;
b[1]:=a[1];
for i:=1 to d do
begin
kt:=0;
for j:=1 to dem do
if a[i]=b[j] then kt:=1;
if kt=0 then
begin
inc(dem);
b[dem]:=a[i];
end;
end;
writeln('Cac chu so cua ',n,' la: ');
for i:=1 to dem do
write(b[i]:4);
writeln;
t:=0;
for i:=1 to d do
t:=t+a[i];
writeln('Tong cac chu so cua ',n,' la: ',t);
kt1:=0;
for i:=2 to trunc(sqrt(t)) do
if t mod i=0 then
begin
kt1:=1;
break;
end;
if (kt1=0) and (t>1) then writeln(t,' la so nguyen to')
else writeln(t,' khong la so nguyen to');
writeln('Cac chu so o vi tri le cua ',n,' la: ');
t1:=0;
for i:=1 to d do
if i mod 2=1 then
begin
write(a[i]:4);
t1:=t1+a[i];
end;
writeln;
writeln('Tong cac chu so o vi tri le la: ',t1);
if trunc(sqrt(t1))=sqrt(t1) then writeln(t1,' la so chinh phuong')
else writeln(t1,' khong la so chinh phuong');
writeln('Cac chu so o vi tri chan cua ',n,' la: ');
t2:=0;
for i:=1 to d do
if i mod 2=0 then
begin
write(a[i]:4);
t2:=t2+a[i];
end;
writeln('Tong cac chu so o vi tri chan la: ',t2);
t3:=0;
for i:=1 to t2 do
if t2 mod i=0 then t3:=t3+i;
if (t3=t2) and (t2>0) then writeln(t2,' la so hoan hao')
else writeln(t2,' khong la so hoan hao');
max:=a[1];
min:=a[1];
for i:=1 to d do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('Chu so lon nhat cua ',n,' la: ',max);
writeln('Chu so nho nhat cua ',n,' la: ',min);
writeln('Tong cua chung la: ',max+min);
readln;
end.
Đúng 1
Bình luận (0)
Không làm phép tính, xét xem các số sau là số nguyên tố hay hợp số
a) A = 5.11.13.27.39 + 50
b) B = 3000- 11.12.13 - 3. 4.5
Viết chương trình pascal nhập n số nguyên từ bàn phím. Thực hiện
+ Xuất ra màn hình các số vừa nhập
+Tính tổng các số vừa nhập và xét xem tổng đó có phải là số nguyên tố không ?
Làm giúp với !
uses crt;
var a:array[1..100]of integer;
i,n,t,kt,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day so la: ',t);
kt:=0;
for j:=2 to trunc(sqrt(t)) do
if t mod j=0 then
begin
kt:=1;
break;
end;
if kt=0 then writeln(t,' la so nguyen to')
else writeln(t,' khong la so nguyen to');
readln;
end.
Đúng 0
Bình luận (1)
Viết chương trình pascal nhập n số nguyên từ bàn phím. Thực hiện
+ Xuất ra màn hình các số vừa nhập
+Tính tổng các số vừa nhập và xét xem tổng đó có phải là số nguyên tố không ?
Làm giúp với !
uses crt;
var a:array[1..100]of integer;
i,n,t,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cac so vua nhap la: ',t);
if t>=2 then
begin
kt:=0;
for i:=2 to trunc(sqrt(t)) do
if t mod i=0 then
begin
kt:=1;
break;
end;
if kt=0 then writeln(t,' la so nguyen to')
else writeln(t,' khong la so nguyen to');
end
else writeln(t,' khong la so nguyen to');
readln;
end.
Đúng 1
Bình luận (0)