Số Đảo Ngược - Bài Tập Pascal Tổng Hợp

Bài Tập Pascal Tổng Hợp Menu

• Home
• Features
  • Contact
  • Sitemap
• Blog
• Sitemap
• Categories
  • CSS
    • Item 11
    • Item 12
    • Item 13
    • Item 14
  • Graphic design
    • Item 21
    • Item 22
    • Item 23
    • Item 24
  • Development
    • Item 31
    • Item 32
    • Item 33
    • Item 34
  • Web design
    • Item 41
    • Item 42
    • Item 43
    • Item 44
• Work
  • Music
    • Recording
      • Recording 1
      • Recording 2
      • Recording 3
    • Equipment
      • Equipment 1
      • Equipment 2
      • Equipment 3
    • Distribution
      • Distribution 1
      • Distribution 2
      • Distribution 3
  • Video
    • Alpha
      • Alpha 1
      • Alpha 2
      • Alpha 3
    • Omega
      • Omega 1
      • Omega 2
      • Omega 3
    • Zulu
      • Zulu 1
      • Zulu 2
      • Zulu 3
  • Image
    • Work 1
      • Work 1
      • Work 2
      • Work 3
    • Work 2
      • Work 1
      • Work 2
      • Work 3
    • Work 3
      • Work 1
      • Work 2
      • Work 3
• 404

Uncategories Số Đảo Ngược

Số Đảo Ngược

linhc0ngtu 18:08 linhc0ngtu

Cho số nguyên dương X, khi đảo ngược trật tự các chữ số của X ta sẽ thu được một số nguyên dương Y, Y được gọi là số đảo ngược của X.Ví dụ: X = 613 thì Y = 316 là số đảo ngược của X.Số nguyên dương Y được gọi là số nguyên tố nếu nó chỉ có hai ước số là 1 và chính nó, số 1 không phải là số nguyên tố.Cho hai số nguyên dương P và Q (1 ≤ P ≤ Q ≤ 2´109; Q - P ≤ 105).

Yêu cầu: Hãy tìm tất cả các số nguyên dương X nằm thỏa mãn P ≤ X ≤ Q và số đảo ngược của số X là số nguyên tố. Dữ liệu vào: Cho trong file văn bản TIMSO.INP có cấu trúc như sau: - Dòng 1: Ghi hai số nguyên dương P Q, hai số được ghi cách nhau ít nhất một dấu cách. Dữ liệu ra: Ghi ra file văn bản TIMSO.OUT trên nhiều dòng, mỗi dòng ghi một số nguyên X tìm dược. Ví dụ:

TIMSO.INP	TIMSO.OUT
10 19	11 13 14 16 17

var i,j,k,n,m:longint; f1,f2:text; S,St:string; function ktsnt(n:qword):boolean; var k:qword; begin ktsnt:=false; k:=2; if n<2 then exit; if n=2 then ktsnt:=true; while k*k <= n do begin if n mod k = 0 then exit; inc(k); end; ktsnt:=true; end; {---------------------------------------------------------------} function daonguoc(n:qword):boolean; begin str(n,S);St:=''; for i:=length(S) downto 1 do St:=St+S[i]; val(St,k); if ktsnt(k) then daonguoc:=true else daonguoc:=false; end; {---------------------------------------------------------------} begin assign(f1,'daonguoc.inp');reset(f1); assign(f2,'daonguoc.out');rewrite(f2); readln(f1,n,m); for j:=n to m do if daonguoc(j) then writeln(f2,j); close(f1);close(f2); end.

• Tweet
• Share
• Share
• Share
• Share

Sign up here with your email

Next « Prev Post Previous Next Post »

13 nhận xét

Write nhận xét Unknown AUTHOR lúc 21:15 3 tháng 3, 2017 delete

hay lắm

Reply Unknown AUTHOR lúc 19:33 25 tháng 8, 2017 delete

Như cc chứ hay lol j

Reply Magi AUTHOR lúc 03:37 12 tháng 12, 2017 delete

Program Tim_so;Const fi='TIMSO.INP'; fo='TIMSO.OUT' ;Var P,Q:longint; Time:Longint; Times:Longint absolute 0:$46C;Function NT(K:longint):Boolean;Var Can,i:Longint;Begin If (K=2) or (K=3) then Begin NT:=True;Exit; End; If (K<2) or (K mod 2 = 0) or (K mod 3 = 0) then Begin NT:=False; Exit; End; NT:=True; i:=5; Can:=Trunc(sqrt(K)); While i<=Can do Begin if (K mod i = 0) or (K mod (i+2) =0) then Begin NT:=False; Exit; End ELse inc(i,6); End;End;Function Daoso(N:longint):longint;Var S:longint;Begin S:=0; While N<>0 do Begin S:=S*10+ (N mod 10); N:=N div 10; End; Daoso:=S;End;Procedure Read_Data;Var F:text;Begin Assign(f,fi); Reset(f); Read(f,P,Q); Close(f);End;Procedure Write_Data;Var f:text; j:longint;Begin Assign(f,fo); Rewrite(f); for j:=P to Q do if NT(Daoso(j)) then Writeln(f,j); Close(f);End;BEGIN Time:=Times; Read_Data; Write_Data; Writeln((Times-Time)/18.2:0:2); Readln;END.

Reply Unknown AUTHOR lúc 02:35 5 tháng 11, 2018 delete

quá dài

Reply Unknown AUTHOR lúc 13:58 14 tháng 11, 2018 delete

Dài thế

Reply Unknown AUTHOR lúc 08:38 13 tháng 3, 2019 delete

USES CRT;VAR N:INTEGER;BEGINCLRSCR;WRITE('NHAP N');READLN(N);WHILE N<>0 DOBEGINWRITE(N MOD 10);N:=N DIV 10;READLN;END.

Reply Unknown AUTHOR lúc 01:12 19 tháng 12, 2020 delete

ngắn thế

Reply imei fukada AUTHOR lúc 19:47 23 tháng 5, 2021 delete

dme mày dài mới đúng, ngu

Reply imei fukada AUTHOR lúc 19:49 23 tháng 5, 2021 delete

cho đáp án chuẩn rồi còn chê dài, thế ăn cứt ăn đb

Reply Unknown AUTHOR lúc 20:36 24 tháng 8, 2021 delete

các ông cục súc thế

Reply Unknown AUTHOR lúc 18:23 17 tháng 3, 2022 delete

như cc

Reply Unknown AUTHOR lúc 00:11 18 tháng 9, 2022 delete

Xin code c++ =)))))))

Reply Unknown AUTHOR lúc 21:13 12 tháng 12, 2023 delete

súc vật chúa

Reply

ConversionConversion EmoticonEmoticon

Conversion Clean Đăng ký: Đăng Nhận xét (Atom) Được tạo bởi Blogger.

Popular

• Bài tập về số nguyên tố, số siêu nguyên tố, số nguyên tố tương đương, số phản nguyên tố. Bài 1. Phân tích số nguyên dương N thành tích của các thừa số nguyên tố. VD: 12 = 2*2*3 Chương trình uses crt; var i,j,n:l...
• Bài tập về số hoàn hảo, số chính phương. Bài 1. Số hoàn hảo (Năm 11-12) Trong một buổi học toán Bờm được học khái niệm về số có tính chất đặc biệt. Số hoàn hảo là số có tổng các...
• Ngày tháng năm sau ngày được nhập N ngày Đề bài: Nhập ngày tháng năm. Hãy cho biết ngày tháng năm sau đó N ngày. var d,m,y,n:integer; Function      Songay(thang,nam: Integer):Intege...
• Bài tập về dãy con: Bài 1: Viết chương trình nhập số nguyên K ( K > 1), và N số nguyên (N >= 1). Đưa ra màn hình độ dài đoạn lớn nhất các phần tử liên...
• Đếm số ký tự Bài 1. Đếm số ký tự ( năm 08-09). Cho tệp văn bản mang tên Bai2.inp Yêu cầu: Đếm số chữ cái khác nhau trong tệp trên và số lần xuấ...
• Bình Chọn Vietnam nexttop model Bình chọn qua điện thoại Trong vòng chung kết cuộc thi “Vietnam Next Top Model” trên VTV3 các thí sinh được đánh số báo danh là một số ng...
• Độ bền của một số nguyên Độ bền của một số nguyên không âm n được định nghĩa như sau: - Nếu N có một chữ số thì độ bền của n bằng 0. - Nế...
• Số Đảo Ngược  Cho số nguyên dương X, khi đảo ngược trật tự các chữ số của X ta sẽ thu được một số nguyên dương Y, Y được gọi là số đảo ngược của X. Ví...
• Số N1 Xét một số N có 4 chữ số và không phải tất cả các chữ số đều giống nhau. Phép tính độ lệch được thực hiện như sau: Tạo số thứ nhất N1 bằ...
• Tính Tổng  Tính tổng Cho hai số nguyên dương M và N, M có p chữ số và N có q chữ số. Yêu cầu: Tính tổng của hai số M và N. Dữ liệu vào: Cho...

Comment

statistics