Những câu hỏi liên quan
Nguyễn Văn Tiến Dũng
Xem chi tiết
Phía sau một cô gái
13 tháng 8 2023 lúc 8:49

program KiemTraSoSieuNguyenTo;

uses crt;

function IsPrime(num: integer): boolean;

var

   i: integer;

begin

   if num < 2 then

      IsPrime := false

   else

   begin

      IsPrime := true;

      for i := 2 to trunc(sqrt(num)) do

      begin

         if num mod i = 0 then

         begin

            IsPrime := false;

            break;

         end;

      end;

   end;

end;

function IsSuperPrime(num: integer): boolean;

var

   i, temp: integer;

begin

   IsSuperPrime := true;

   while num > 0 do

   begin

      if not IsPrime(num) then

      begin

         IsSuperPrime := false;

         break;

      end;

      temp := num mod 10;

      num := num div 10;

   end;

end;

var

   n: integer;

   inputFile, outputFile: text;

begin

   assign(inputFile, 'SNT.INP');

   assign(outputFile, 'SNT.OUT');

   reset(inputFile);

   rewrite(outputFile);

   readln(inputFile, n);

   if IsSuperPrime(n) then

      writeln(outputFile, 1)

   else

      writeln(outputFile, 0);

   close(inputFile);

   close(outputFile);

end.

Bình luận (1)
Nguyễn Hoàng Duy
14 tháng 8 2023 lúc 6:42

const fi='SNT.INP'
   fo='SNT.OUT'
var n:qword;
function isPrimeNumber(n:qword):byte;
var i:longint;
begin
   if n<2 then exit(0);
   for i:=2 to trunc(sqrt(n))do
      if n mod i=0 then exit(0);
   exit(1);
end;
function isSuperPrimeNumber(n:qword):byte;
begin
   while n<>0 do
      begin
         if isPrimeNumber(n)=0 then exit(0);
         n:=n div 10;
      end;
   exit(1);
end;
begin
   assign(input,fi);reset(input);
   assign(output,fo);rewrite(output);
      readln(n);
      write(isSuperPrimeNumber(n));
   close(output);
   close(input);
end.

 

Bình luận (0)
Juvia vs Gray
Xem chi tiết
Thiên Bình xinh đẹp
27 tháng 2 2017 lúc 20:06

ây kết bạn với mình nhớ k cho mình nhé

Bình luận (0)
kanzuki mizuki
27 tháng 2 2017 lúc 20:04

minh ne

Bình luận (0)
Đỗ Thu Hường
27 tháng 2 2017 lúc 20:04

k mk nha

Bình luận (0)
Phạm Minh Tuấn
Xem chi tiết
NguyễnViệtCường
19 tháng 5 2021 lúc 14:26

report!!

Bình luận (0)
 Khách vãng lai đã xóa

Nội qui tham gia "Giúp tôi giải toán"

1. Không đưa câu hỏi linh tinh lên diễn đàn, chỉ đưa các bài mà mình không giải được hoặc các câu hỏi hay lên diễn đàn;

2. Không trả lời linh tinh, không phù hợp với nội dung câu hỏi trên diễn đàn.

3. Không "Đúng" vào các câu trả lời linh tinh nhằm gian lận điểm hỏi đáp.

Các bạn vi phạm 3 điều trên sẽ bị giáo viên của Online Math trừ hết điểm hỏi đáp, có thể bị khóa tài khoản hoặc bị cấm vĩnh viễn không đăng nhập vào trang web.

Bình luận (0)
 Khách vãng lai đã xóa
🤣🤣🤣 Ŧùɔ
19 tháng 5 2021 lúc 14:30

Nội qui tham gia "Giúp tôi giải toán"

1. Không đưa câu hỏi linh tinh lên diễn đàn, chỉ đưa các bài mà mình không giải được hoặc các câu hỏi hay lên diễn đàn;

2. Không trả lời linh tinh, không phù hợp với nội dung câu hỏi trên diễn đàn.

3. Không "Đúng" vào các câu trả lời linh tinh nhằm gian lận điểm hỏi đáp.

Các bạn vi phạm 3 điều trên sẽ bị giáo viên của Online Math trừ hết điểm hỏi đáp, có thể bị khóa tài khoản hoặc bị cấm vĩnh viễn không đăng nhập vào trang web.

Bình luận (0)
 Khách vãng lai đã xóa
Love_You_More
Xem chi tiết
Thảo Nguyễn Karry
11 tháng 12 2016 lúc 20:12

??

Bình luận (5)
Alice
11 tháng 12 2016 lúc 20:54

tớ có thấy ai đâu ??????????????icon-chat

Bình luận (5)
Vu Thi Quynh Nga
17 tháng 3 2017 lúc 21:37

ai co????lolangnhonhungucche

Bình luận (0)
nguyen thi bich ngoc
Xem chi tiết
Lãnh Hàn Thiên Di
4 tháng 3 2018 lúc 19:49

Đáp án mình là 99

Bình luận (0)
Huỳnh Quang Sang
3 tháng 3 2018 lúc 14:38

Số nào lớn nhất có 2 chữ số là 99

Tích nha bạn

Bình luận (0)
Trần Tiến Đạt
3 tháng 3 2018 lúc 14:49

là 99

tk mk nha

Bình luận (0)
cô nàng cá tính
Xem chi tiết
Takitori
9 tháng 10 2016 lúc 21:38
0o0 cô nàng ở đâu xinh thế 0o0Điểm tuần này: 108. Tổng: 85 á
Bình luận (0)
cô nàng cá tính
9 tháng 10 2016 lúc 21:40

đúng vậy đó bn ạ

bn ấy hiền lắm

mà các bn cư

snois nọ nói kia

Bình luận (0)
Anh2Kar六
17 tháng 8 2021 lúc 7:15

có mỗi chuyện này

mà  cũng 

đăng 

linh tinh

Bình luận (0)
 Khách vãng lai đã xóa
Jerry Gaiming
Xem chi tiết
nguyenvumaichi
Xem chi tiết
Đinh Tuấn Việt
3 tháng 6 2015 lúc 15:55

Jacksong Yi bị cuồng à ?

Bình luận (0)
Nguyễn Lương Bảo Tiên
3 tháng 6 2015 lúc 15:41

Gọi số bậc của tòa tháp là a (a thuộc N*)

Ta có a chia 3 dư 1 => a + 2 chia hết cho 3

         a chia 4 dư 2 => a + 2 chia hết cho 4

         a chia 5 dư 3 => a + 2 chia hết cho 5

=> a + 2 là BC(3;4;5) = B(60) = {0;60;120;180;...}

=> a + 2 = 120 => a = 118

Vậy số bậc của tòa tháp là 118 bậc

Bình luận (0)
Feliks Zemdegs
3 tháng 6 2015 lúc 15:53

@Jackson Ji:Bạn làm tốn trang quá

Bình luận (0)
nguyenvumaichi
Xem chi tiết
Đinh Tuấn Việt
3 tháng 6 2015 lúc 15:51

Cậu làm tốn diện tích trang quá đấy !

Bình luận (0)
Minh Triều
3 tháng 6 2015 lúc 15:52

Gọi số bậc của tòa tháp là a (a thuộc N*)

Ta có a chia 3 dư 1 => a + 2 chia hết cho 3

         a chia 4 dư 2 => a + 2 chia hết cho 4

         a chia 5 dư 3 => a + 2 chia hết cho 5

=> a + 2 là BC(3;4;5) = B(60) = {0;60;120;180;...}

=> a + 2 = 120 => a = 118

Vậy số bậc của tòa tháp là 118 bậc

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Bình luận (0)