Đang tìm hiểu các thuật toán về số tự nhiên, Nguyên phát hiện ra số tự nhiên có rất nhiều tính chất thú vị. Ví dụ số hoàn hảo có tính chất: tổng các ước bằng 2 lần số đó, như số 6, số 24… Nhiều số tự nhiên khi tìm ước chung lớn nhất với số đảo ngược của nó bằng 1, những số như th

loga2909

2 năm trước

Đang tìm hiểu các thuật toán về số tự nhiên, Nguyên phát hiện ra số tự nhiên có rất nhiều tính chất thú vị. Ví dụ số hoàn hảo có tính chất: tổng các ước bằng 2 lần số đó, như số 6, số 24… Nhiều số tự nhiên khi tìm ước chung lớn nhất với số đảo ngược của nó bằng 1, những số như thế được gọi là số thân thiện. Chẳng hạn số 23, số đảo ngược của nó là 32, hai số này có ước chung lớn nhất là 1 nên số 23 là số thân thiện và 32 cũng là số thân thiện. Yêu cầu: Cho 2 số tự nhiên a, b (a<b). Hãy đếm xem trong đoạn từ a đến b có bao nhiêu số thân thiện. --- Yêu cầu riêng: - Dùng chương trình con - Dùng file THANTHIEN

Loga Sinh Học lớp 12

0 lượt thích 45 xem

1 trả lời

Thích Trả lời

anchu2510aa

const fi='thanthien.inp';
fo='thanthien.out';
var a,b:longint;
function daonguoc(x:longint):longint;
var s,st:ansistring;
i,k:longint;
begin
str(x,s);
for i:=length(s) downto 1 do st:=st+s[i];
val(st,k);
exit(k);
end;
function check(x:longint):boolean;
var y,t:longint;
begin
y:=daonguoc(x);
while x>0 do
begin
t:=y mod x;
y:=x;
x:=t;
end;
if y=1 then exit(true);
exit(false);
end;
procedure nhap;
begin
assign(input,fi);
reset(input);
read(a,b);
close(input);
end;
procedure xuat;
var i,dem:longint;
begin
assign(output,fo);
rewrite(output);
for i:=a to b do
if check(i) then inc(dem);

write(dem);
close(output);
end;
begin
nhap;
xuat;
end.

Vote (0) Phản hồi (0) 2 năm trước

nguyenquynh26902.gl

uses crt;
var d:text; n,s:string; a,b,j,e,i,k,h,t:longint;
function uc(a,b:longint):longint;
begin
While a<>b do If a>b then a:=a-b else b:=b-a;
If a=1 then writeln(i);
end;
begin
clrscr;
assign(d,'input.pas');reset(d);
readln(d,k,h);
for i:=k to h do
begin
s:='';
str(i,n);
for j:=length(n) downto 1 do s:=s+n[j];
val(n,a,e);
val(s,b,e);
uc(a,b);
end;
close(d);
readln
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

(x^2+2x)(x^2+2x-2)=3 Giải PT trên

Why do birds fly on the sky?(Câu hỏi mẹo)

cho nửa đường tròn tâm O đường kính AB,tiếp tuyến Ax.Gọi C là một điểm trên nửa đường tròn.Tia phân giác góc CAx cắt nửa đường tròn ở E,AE và BC cắt nhau ở K a)Tam giác ABK là tam giác gì?Vì sao b)Gọi I là giao điểm của AC và BE.Chứng minh KI//Ax c)Chứng minh OE//BC

many young people (lack) skills ,good education ,and (financial) to settle in the( urban areas) where many jobs( are found) làm giúp mk nhé

Ai làm giúp e câu 9 và 10 với ạ

Hãy viết 1 bài văn nêu lên một số vấn đề về giao thông tại 1 thành phố lớn tại việt nam Giúp e vs - tối e đi hc rồi - k lấy trên mạng ( có đủ 3 phần MB,TB,KB)

Cho n và dãy số nguyên a1, a2, …, an. Kiểm tra dãy số có phải là dãy tăng dần không? --- - Dùng file: KTTD - Dùng chương trình con

Giải dùm mik 2 bài này nha ❤️Tks

CMR: $\frac{a}{b}$ + $\frac{b}{c}$ + $\frac{c}{a}$ $\geq$ $\frac{b}{a}$ + $\frac{a}{c}$ + $\frac{c}{b}$ (a $\geq$ b $\geq$ c > 0)

Có ý kiến cho rằng sự sáng tạo đặc sắc nhất của Thanh Hải trong bài thơ là ở hình ảnh mùa xuân nho nhỏ. Em hãy viết một đoạn văn theo cách lập luận tổng-phân -hợp (khoảng 12 câu) làm rõ ý kiến trên ,trong đó có sử dụng câu bị động và phép liên kiết câu (gạch chân dưới câu bị động, từ ngữ dùng làm phép thế và chú thik rõ) LƯU Ý :Câu bị động có thể chuyển thành câu chủ động và ko đc chép mạng.

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến