Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Natsuo Dragneel
Xem chi tiết
Freya
24 tháng 2 2017 lúc 20:15

cái bài này ai mà trả phải vắt óc suy nghĩ bạn tự làm đi

Bùi Minh Hiếu
24 tháng 2 2017 lúc 20:18

bài này ở cái phần ai giải được được nhận 1 tháng vip 

Cure Beauty
24 tháng 2 2017 lúc 20:20

mik còn có 29 ngày vip hà hihihi

Zing
Xem chi tiết
Good look_Good like
Xem chi tiết
Lê Kiều Thiên An
Xem chi tiết
Nguyễn Minh Khôi
Xem chi tiết
phuong phuong
Xem chi tiết
Isolde Moria
9 tháng 9 2016 lúc 16:08

Tốn S

BCSP

Long Nguyen
9 tháng 9 2016 lúc 16:08

dai vay

TRINH MINH ANH
23 tháng 10 2016 lúc 20:50

batngoKo thể tin!!!

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.

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.

 

Lưu Lê Thục Nhiên
Xem chi tiết
Tạ Khánh An
Xem chi tiết
Nguyễn Thị Ngọc Mai
27 tháng 4 2020 lúc 8:04

TA cộng lần lượt thì sẽ ra số chẵn là10

Khách vãng lai đã xóa
nguyênviêthung
27 tháng 4 2020 lúc 10:24

1cong1bằng 2chia2bằng1 3chia3bằng1cong1 bang2

Khách vãng lai đã xóa
Uyên Linh cute
27 tháng 4 2020 lúc 15:42

là 2 bạn nhé

Khách vãng lai đã xóa