lê chí hiếu
nhờ mọi người giúp cho 1. Tªn file ch­¬ng tr×nh ®Æt lµ BL1.PAS Một số nguyên gọi là số đối xứng nếu viết dạng biểu diễn thập phân của số đó theo chiều ngược lại vẫn thu được chính số đó. Cho số nguyên dương N có không quá 100 chữ số. Hãy xác định số nguyên đối xứng nhỏ nhất lớn hơn N. Dữ liệu vào từ file văn bản: nextpal.inp · Dòng 1: Số nguyên N Kết quả ghi ra file văn bản: nextpal.out · Dòng 1: Số nguyên kết quả Ví dụ nextpal.inp Nextpal.out...
Đọc tiếp

Những câu hỏi liên quan
Minh
Xem chi tiết
nguyễn minh đức
Xem chi tiết
Nguyễn Thu Hà
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 12 2020 lúc 22:30

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.

Bình luận (0)
Nguyễn Thu Hà
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 12 2020 lúc 22:26

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.

Bình luận (0)
Lala
Xem chi tiết
Phùng Trọng Hiếu
Xem chi tiết
Lã Tường Chi
Xem chi tiết
Minh Nguyệt
3 tháng 7 2021 lúc 9:50

Có 10 cách chọn số đứng thứ 3 (từ 0 đến 9)

Có 9 cách chọn số đứng thứ đầu và cuối (từ 1 đến 9)

Có 10 cách chọn số thứ 2 vầ thứ 4 (từ 0 đến 9)

Suy ra có 10.9.10 = 900 số thỏa mãn

Bình luận (0)
Nguyễn Nam Giang
Xem chi tiết
Xem chi tiết
Nguyễn Ngọc Lan
Xem chi tiết