Sở giao thông Hà Nội quyết định bán đấu giá các biển số xe đẹp để lấy tiền ủng hộ đồng bảo lũ lụt miền Trung. Một biển số xe được gọi là đẹp nếu nó thỏa mã
Lời giải 1 :
Ở đây mình sẽ tạo 2 hàm. Hàm doixung để kiểm tra tính đối xứng của số và hàm snt để kiểm tra số đó có phải là số nguyên tố hay không.
+ Hàm doixung: mình đổi kiểu số sang dạng chuỗi sau đó so sánh lần lượt s[1] và s[5]; s[2] và s[4] nếu cả hai đều bằng thì đó là số đối xứng(do A,B≤$10^{5}$ nên $10^{5}$ là số có 6 chữ số duy nhấ nên ko cần phải xét đối xứng cho số có 6 chữ số);
+ Hàm snt: mình chạy từ 2 cho đến trunc(sqrt(a)) a chia hết cho 1 trong các số này thì có nghĩa là nó có ước nên ko là snt còn ngược lại thì đúng.
Sau đó chỉ cần chạy từ a đến b để đếm số để hai hàm trên trả về TRUE
Code
Program biensodep;
uses crt;
VAR a,b,i,d:longint;
Function doixung(a:longint):boolean;
var s:string;
kq:boolean;
begin
str(a,s);
kq:= false;
if ((s[1] = s[5]) and (s[2] = s[4])) then kq:= true;
doixung:=kq;
end;
Function snt(a:longint):boolean;
var i:longint;
kq : boolean;
begin
kq:=true;
For i:= 2 to trunc(sqrt(a)) do
if a mod i = 0 then begin kq:=false; break; end;
snt := kq;
end;
BEGIN
clrscr;
Readln(a,b);
d:=0;
For i := a to b do
if snt(i) and doixung(i) then d:= d+1;
Writeln(d);
Readln;
END.
Thảo luận
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 10
Lớp 10 - Năm thứ nhất ở cấp trung học phổ thông, năm đầu tiên nên có nhiều bạn bè mới đến từ những nơi xa hơn vì ngôi trường mới lại mỗi lúc lại xa nhà mình hơn. Được biết bên ngoài kia là một thế giới mới to và nhiều điều thú vị, một trang mới đang chò đợi chúng ta.
Nguồn : ADMIN :))Xem thêm tại https://loigiaisgk.com/cau-hoi or https://giaibtsgk.com/cau-hoi
Copyright © 2021 HOCTAPSGK