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
Long ca ca
Xem chi tiết
Phía sau một cô gái
29 tháng 6 2023 lúc 8:20

import math

def is_prime(n):

       if n <= 1:

              return False

       for i in range(2, int(math.sqrt(n))+1):

              if n % i == 0:

                     return False

       return True

T = input("Nhập chuỗi T: ")

max_prime = None

for s in T.split():

       if s.isnumeric():

              n = int(s)

              if is_prime(n):

                     print(n)

                     if max_prime is None or n > max_prime:

                            max_prime = n

if max_prime is None:

       print("Không có số nguyên tố trong chuỗi")

else:

       print("Số nguyên tố lớn nhất là:", max_prime)

Long ca ca
Xem chi tiết
Phía sau một cô gái
29 tháng 6 2023 lúc 19:39

program tim_so_nguyen_to_trong_xau_t;

uses crt;

function is_prime(n: integer): boolean;

var

      i: integer;

begin

      if n <= 1 then

      begin

            is_prime := false;

            exit;

      end;

      if n <= 3 then

      begin

            is_prime := true;

            exit;

      end;

      if n mod 2 = 0 then

      begin

            is_prime := false;

            exit;

      end;

      for i := 3 to trunc(sqrt(n)) do

      begin

            if n mod i = 0 then

            begin

                  is_prime := false;

                  exit;

            end;

      end;

      is_prime := true;

end;

var

      T: string;

      i, number, max_prime: integer;

begin

      clrscr;

      write('Nhap xau T: ');

      readln(T);

      max_prime := 0;

      for i := 1 to length(T) do

      begin

            if (T[i] >= '0') and (T[i] <= '9') then

            begin

                  number := strToInt(T[i]);

                  if is_prime(number) then

                  begin

                        write(number, ' ');

                        if number > max_prime then

                        begin

                              max_prime := number;

                        end;

                  end;

            end;

      end;

      writeln();

      writeln('So nguyen to lon nhat trong xau T la: ', max_prime);

      readln;

end.

Ribi nguyễn
Xem chi tiết
Võ Hiền Anh
26 tháng 4 2017 lúc 19:19

Tuổi mẹ hiện nay là

28:(5-1)×5 -3=32(tuổi)

Tuổi con hiện nay là

32-28=4(tuổi)

Võ Hiền Anh
26 tháng 4 2017 lúc 19:20

Số lớn nhất có 2 c/s là 99

Số bé là

99:(20-9)×9=81

Số lớn là

99+81=180

Đ/s....

AUROUSFV TR
Xem chi tiết
Kaito Kid
3 tháng 4 2022 lúc 17:35

tổng của 3 số nt là bn

Lê Tố Uyên
Xem chi tiết
I LIKE MATH
28 tháng 2 2016 lúc 14:06

Nhiều quá bạn ơi

Lê Tố Uyên
28 tháng 2 2016 lúc 14:13

giúp mình đi mình đg cần gấp

Lê Tố Uyên
28 tháng 2 2016 lúc 15:01

các bạn giúp mình đi ngày mai mình phải nộp rồi ! hic

Tran phuc
Xem chi tiết
Nguyễn Thảo My
28 tháng 3 2023 lúc 21:37

Em xem lại đề có nhầm j k nhé!

Hình như đề sai.

Nguyễn Triệu Nhật Khánh
Xem chi tiết
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.

 

Cô Tiên Xinh Đẹp
Xem chi tiết