Em Hãy Viết Chương Trình để Xác đinh Xem 1 Số Có Phải Là Số Nguyên ...

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

• • Đăng nhập
  • |
  • Đăng ký
  

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

+

Lưu vào

• +

  Danh mục mới

Lưu

• duogngocnhat1407
• Chưa có nhóm

• Trả lời

  0

• Điểm

  10

• Cảm ơn

  0

• Tin Học
• Lớp 11
• 50 điểm
• duogngocnhat1407 - 20:06:41 09/04/2020

Em hãy viết chương trình để xác đinh xem 1 số có phải là số nguyên tố đối xứng hay không.Một số nguyên được gọi là đối xứng nếu nó bằng với số ngược của n ( vd:1221,121 la so dx, 1271 ko p so dx INPUT OUTPUT 101 True 121 False 151 True

• Hỏi chi tiết
• Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

• keyy
• _Interesting_

• Trả lời

  1742

• Điểm

  353

• Cảm ơn

  1315

• keyy

• 10/04/2020

Const Fi='NTDX.INP'; Fo='NTDX.OUT';Var f,g: text; n: longint;Function ngto(a: longint): boolean;Var i: longint;Begin If a<2 then exit(false); For i:=2 to a div 2 do If a mod 2 = 0 then exit(false); Exit(true);End;Function dx(a: longint): boolean;Var b,s: longint;Begin b:=a; s:=0; While a<>0 do Begin s:=s*10+a mod 10; a:=a div 10; End; If a=s then exit(true); exit(false);End;Begin Assign(f,Fi); Reset(f); Assign(g,Fo); Rewrite(g); Read(f,n); If (ngto(n)) and (dx(n)) then Write(g,'Ngto doi xung') Else Write(g,'Khong phai ngto doi xung'); Close(f); Close(g);End

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar3starstarstarstarstar2 voteGửiHủy

• Cảm ơn
• Báo vi phạm

Đăng nhập để hỏi chi tiết

• batthuong123
• Chưa có nhóm

• Trả lời

  8

• Điểm

  -58

• Cảm ơn

  3

• batthuong123

• 15/04/2020

var f,g:text;

i,n:int64;

const

fi='input.inp';

fo='output.out';

function nt(n:inter64):boolean;

var i1,d:interger;

begin

d:=0;

nt:=false;

for i1:=1 to n do

if n mod i=0 then d:=d+1;

if d=2 then nt=true

end;

function dx(n:inter64):boolean;

var s2,s1:string; j:integer;

begin

s2:='';

str(n,s2);

s1:='';

for j:=length(s2) downto 1 do

s1:=s1+s2[j];

if s1=s2 then dx:=true

else dx:=false;

end;

begin

assign(f,fi); reset(f);

assign(g,fo); rewrite(G);

read(f,n);

if nt(n)=true then

begin

if dx(n)=true then write(g, 'true')

else write(g,'false);

end

else write(g,'false');

cllose(f);

close(g);

end.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarGửiHủy

• Cảm ơn
• Báo vi phạm

Đăng nhập để hỏi chi tiếtXEM LỜI GIẢI SGK TIN 11 - TẠI ĐÂY

Bạn muốn hỏi điều gì?

Đặt câu hỏi

Tham Gia Group Dành Cho Lớp 11 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí

Bảng tin

Bạn muốn hỏi điều gì?

Đặt câu hỏi

Lý do báo cáo vi phạm?

Gửi yêu cầu Hủy

Cơ quan chủ quản: Công ty Cổ phần Công nghệ Giáo dục Thành Phát

• 
• 
• 

Tải ứng dụng

• Hướng dẫn sử dụng
• Điều khoản sử dụng
• Nội quy hoidap247
• Góp ý
• Tin tức

• Inbox: m.me/hoidap247online
• Trụ sở: Tầng 7, Tòa Intracom, số 82 Dịch Vọng Hậu, Cầu Giấy, Hà Nội.

Giấy phép thiết lập mạng xã hội trên mạng số 331/GP-BTTTT do Bộ Thông tin và Truyền thông.