Viết chương trình số thân thiện là số mà ước chung lớn nhất của nó với số đảo ngược của nó bằng 1
Những câu hỏi liên quan
Số hoàn hảo là số tự nhiên có giá trị bằng tổng các ước thực sự của nó(các ước nhỏ hơn chính nó) V.dụ 1 vài số hoàn hảo 6:1+2+3=6 ;28:1+2+4+7+14=28 Em hãy viết chương trình xác định số hoàn hảo đầu tiên lớn hơn số tự nhiên n được nhập vào từ bàn phím
Program HOC24;
var i,t,k,n: integer;
begin
write('Nhap N: '); readln(n);
t:=0; k=0;
while k=0 do
begin
n:=n+1;
for i:=1 to n do if n mod i=0 then t:=t+i;
if t=n then
begin
write(n);
k:=k+1
end else t:=0;
end;
readln
end.
Đúng 2
Bình luận (1)
ta gọi số ngược của 1 số là số tạo ra bằng cách viết các chữ số của số đã cho theo chiều từ trái qua phải (vd: số 123 có số ngược là 321). Một số nguyên x được gọi là số ngược của nó là những số nguyên tố cùng nhau (tức có ước số chung bằng 1). Ví dụ 123 là một số đối lập vì có ước số chung lớn nhất của 123 và 321 bằng 1. Hãy lập trình để xác định một số nguyên dương đã cho có phải là số đối lập hay không ?Giúp mik với !!!
Đọc tiếp
ta gọi số ngược của 1 số là số tạo ra bằng cách viết các chữ số của số đã cho theo chiều từ trái qua phải (vd: số 123 có số ngược là 321). Một số nguyên x được gọi là số ngược của nó là những số nguyên tố cùng nhau (tức có ước số chung bằng 1). Ví dụ 123 là một số đối lập vì có ước số chung lớn nhất của 123 và 321 bằng 1. Hãy lập trình để xác định một số nguyên dương đã cho có phải là số đối lập hay không ?
Giúp mik với !!!
híc sắp thi rồi giúp em với ạ plssssssssscâu hỏi gồm 3 câu ạcâu 1:viết chương trình nhập 1 số tự nhiên N và kiểm tra xem N có là số hoàn hảo không? (số hoàn hảo là số có tổng các ước tự nhiên nhỏ hơn nó bằng chính nó)câu 2:viết chương trình nhập 1 số nguyên N và kiểm tra xem N có là số nguyên tố khôngcâu 3: viết chương trình nhập 1 mảng A gồm N số nguyên và xuất ra màn hình số nhỏ nhất trong mảng
Đọc tiếp
híc sắp thi rồi giúp em với ạ plsssssssss
câu hỏi gồm 3 câu ạ
câu 1:viết chương trình nhập 1 số tự nhiên N và kiểm tra xem N có là số hoàn hảo không? (số hoàn hảo là số có tổng các ước tự nhiên nhỏ hơn nó bằng chính nó)
câu 2:viết chương trình nhập 1 số nguyên N và kiểm tra xem N có là số nguyên tố không
câu 3: viết chương trình nhập 1 mảng A gồm N số nguyên và xuất ra màn hình số nhỏ nhất trong mảng
Mọi người giúp em vs ạ
Số nguyên tố là số chỉ có đúng 2 ước là 1 và chính nó.
Số đảo ngược của một số là viết các chữ số của số đó theo thứ tự ngược lại.
Số n được gọi là số song nguyên tố nếu n là số nguyên tố và số đảo ngược của n cũng là số nguyên tố.
Yêu cầu: Viết chương trình in ra những số song nguyên tố trong một dãy số.
Dữ liệu vào: Nhập từ bàn phím số nguyên dương n (n100000) và dãy n số nguyên.
Dữ liệu ra: In ra màn hình những số song nguyên tố trong dãy số vừa nhập.
Đọc tiếp
Mọi người giúp em vs ạ
Số nguyên tố là số chỉ có đúng 2 ước là 1 và chính nó.
Số đảo ngược của một số là viết các chữ số của số đó theo thứ tự ngược lại.
Số n được gọi là số song nguyên tố nếu n là số nguyên tố và số đảo ngược của n cũng là số nguyên tố.
Yêu cầu: Viết chương trình in ra những số song nguyên tố trong một dãy số.
Dữ liệu vào: Nhập từ bàn phím số nguyên dương n (n<100000) và dãy n số nguyên.
Dữ liệu ra: In ra màn hình những số song nguyên tố trong dãy số vừa nhập.
uses crt; var a,b:array[1..100000]of integer; i,n,kt,j,dem,x,y,kt1:integer; st,st1:string; begin clrscr; write('Nhap n='); readln(n); for i:=1 to n do begin write('A[',i,']='); readln(a[i]); end; dem:=0; for i:=1 to n do if a[i]>1 then begin kt:=0; for j:=2 to a[i]-1 do if a[i] mod j=0 then begin kt:=1; break; end; if kt=0 then begin inc(dem); b[dem]:=a[i]; end; end; for i:=1 to dem do begin str(a[i],st); st1:='' for j:=length(st) downto 1 do st1:=st1+st[j]; val(st1,x,y); kt1:=0; for j:=2 to x-1 do if x mod j=0 then begin kt1:=1; break; end; if kt1=0 then write(a[i]:4); end; readln; end.
Đúng 1
Bình luận (0)
Mọi người giúp em vs ạ
Số nguyên tố là số chỉ có đúng 2 ước là 1 và chính nó.
Số đảo ngược của một số là viết các chữ số của số đó theo thứ tự ngược lại.
Số n được gọi là số song nguyên tố nếu n là số nguyên tố và số đảo ngược của n cũng là số nguyên tố.
Yêu cầu: Viết chương trình in ra những số song nguyên tố trong một dãy số.
Dữ liệu vào: Nhập từ bàn phím số nguyên dương n (n100000) và dãy n số nguyên.
Dữ liệu ra: In ra màn hình những số song nguyên tố trong dãy số vừa nhập.
Đọc tiếp
Mọi người giúp em vs ạ
Số nguyên tố là số chỉ có đúng 2 ước là 1 và chính nó.
Số đảo ngược của một số là viết các chữ số của số đó theo thứ tự ngược lại.
Số n được gọi là số song nguyên tố nếu n là số nguyên tố và số đảo ngược của n cũng là số nguyên tố.
Yêu cầu: Viết chương trình in ra những số song nguyên tố trong một dãy số.
Dữ liệu vào: Nhập từ bàn phím số nguyên dương n (n<100000) và dãy n số nguyên.
Dữ liệu ra: In ra màn hình những số song nguyên tố trong dãy số vừa nhập.
uses crt; var a,b:array[1..100000]of integer; i,n,kt,j,dem,x,y,kt1:integer; st,st1:string; begin clrscr; write('Nhap n='); readln(n); for i:=1 to n do begin write('A[',i,']='); readln(a[i]); end; dem:=0; for i:=1 to n do if a[i]>1 then begin kt:=0; for j:=2 to a[i]-1 do if a[i] mod j=0 then begin kt:=1; break; end; if kt=0 then begin inc(dem); b[dem]:=a[i]; end; end; for i:=1 to dem do begin str(a[i],st); st1:='' for j:=length(st) downto 1 do st1:=st1+st[j]; val(st1,x,y); kt1:=0; for j:=2 to x-1 do if x mod j=0 then begin kt1:=1; break; end; if kt1=0 then write(a[i]:4); end; readln; end.
Đúng 1
Bình luận (0)
Giúp mình viết chương trình với ctc với ạ
Câu 1: Tìm ước chung lớn nhất của 2 số m,n nguyên dương?
Câu 2: Tìm bội chung nhỏ nhất của 2 số m,n nguyên dương?
Câu 1:
uses crt;
var m,n,ucln,i:integer;
begin
clrscr;
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
ucln:=1;
if m<n then
begin
for i:=1 to m do
if (m mod i=0) and (n mod i=0) then
begin
if ucln<i then ucln:=i;
end;
end
else begin
for i:=1 to n do
if (m mod i=0) and (n mod i=0) then
begin
if ucln<i then ucln:=i;
end;
end;
writeln(ucln);
readln;
end.
Đúng 0
Bình luận (0)
Câu 2:
uses crt;
var m,n,bcnn,i:integer;
begin
clrscr;
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
bcnn:=m*n;
for i:=m*n-1 downto 1 do
if (i mod m=0) and (i mod n=0) then
begin
if bcnn>i then bcnn:=i;
end;
writeln(bcnn);
readln;
end.
Đúng 1
Bình luận (0)
BCNN:
program boichung;
var m,n: word;
procedure Input;
begin
readln(m,n);
end;
function BC(m,n: word): word;
var i: word;
begin
for i := 1 to n * m do
if (i mod n = 0) and (i mod m = 0) then
write(i,' ');
end;
begin
Input;
BC(m,n);
end.
UCLN:
program UCLN;
var m,n,r,i: longint;
begin
readln(n,m);
n := abs(n);
m := abs(m);
if (n = 0) then
begin
i := 1;
write(m);
end
else
if (m = 0) then
begin
i := 1;
write(n);
end;
r := n mod m;
while r <> 0 do
begin
r := n mod m;
n:= m;
m:= r;
end;
if (i = 0) then
write(n);
readln
end.
Đúng 0
Bình luận (0)
Bài 1: Viết chương trình nhập số nguyên dương n. Tính tổng các số chẫn chia hết cho 3 nhỏ hơn hoặc bằng n
Bài 2: Viết chương trình nhập vào 3 số nguyên dương a, b, c. Tìm ước chung lớn nhất của 3 số
Bài 1:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 6=0 then s:=s+i;
writeln(s);
readln;
end.
Đúng 1
Bình luận (0)
Bài 2:
uses crt;
var a,b,c,ucln,i:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
while a<>b do
begin
if a>b then a:=a-b
else b:=b-a;
end;
ucln:=a;
while ucln<>c do
begin
if ucln>c then ucln:=ucln-c
else c:=c-ucln;
end;
writeln(ucln);
readln;
end.
Đúng 1
Bình luận (0)
Scratch hay java
Có bao nhiêu số tự nhiên có ba chữ số mà chữ số hàng chục bình phương bằng tích của các chữ số khác và hiệu giữa nó và nó đảo ngược của nó là 495?
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)