K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

12 tháng 12 2023

Pascal hay C++

uses crt;

var n,kt,snt,b,m:longint;

{-----------------------------}

procedure nhap(var a:longint);

begin   

write('nhap n:'); readln(a);

end;

{-------------------------------------------}

function ktnt(var x:longint):integer;

var kt,i,kt1,j:integer;

begin   

kt:=0;   

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

if x mod i=0 then

begin                         

kt:=1;                         

break;                       

end;   

if kt=0 then ktnt:=1   

else ktnt:=0;

end;

{-----------------------------------------------------}

BEGIN   

clrscr;   

nhap(n);   

for m:=10 to n do   

{-----------------------------------------------}   

begin     

begin       

b:=m;     

repeat         

kt:=ktnt(b);         

if kt=0 then break         

else b:=b div 10;     

until b<10;     

if (ktnt(b)=1) and (b>1) then write(m,' ')     

end;   

end; 

{-------------------------------------------------}

readln;

END.

13 tháng 8 2023

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.

13 tháng 8 2023

bạn viết tới phần mình chưa học á.bạn viết lại đơn giản hơn được không

 

26 tháng 10 2018

Đáp án C

Hướng dẫn: Nguyên tố vi lượng (≤ 100mg/1kg chất khô của cây) gồm:  Cl, Cu, Fe, Mn, Mo, Ni, Zn...

Tromg các phát biểu của đề bài:

Các phát biểu I, III, IV đúng

II sai vì Ca, S, K, Mg là nguyên tố đại lượng

11 tháng 8 2020

Program HOC24;

var n: byte;

dem: integer;

i,x,x1: longint;

function nt(b: longint): boolean;

var j: longint;

begin

nt:=true;

if (b=2) or (b=3) then exit;

nt:=false;

if (b=1) or (b mod 2=0) or (b mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(b)) do

begin

if (b mod j=0) or (b mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

function snt(a: longint): boolean;

var d,d1: byte;

begin

d:=0; d1:=0;

while a<>0 do

begin

if nt(a) then d:=d+1;

d1:=d1+1;

a:=a div 10;

end;

if d1=d then snt:=true else snt:=false;

end;

begin

write('Nhap so N: '); readln(n);

case n of

1: begin x:=1; x1:=9; end;

2: begin x:=10; x1:=99; end;

3: begin x:=100; x1:=999; end;

4: begin x:=1000; x1:=9999; end;

5: begin x:=10000; x1:=99999; end;

6: begin x:=100000; x1:=999999; end;

7: begin x:=1000000; x1:=9999999; end;

8: begin x:=10000000; x1:=99999999; end;

9: begin x:=100000000; x1:=999999999; end;

end;

dem:=0;

for i:=x to x1 do

if nt(i) then

if snt(i) then

begin

write(i,' ');

inc(dem);

end;

writeln;

write('Tat ca co ',dem,' so');

readln

end.

uses crt;
var n,i,kt,dem:integer;
x,y,m,b:int32;
st,st1,st2,st3:shortstring;
{-------------chuong-trinh-con-kiem-tra-so-nguyen-to-----------------------}
function ktnt(var x:longint):integer;
var kt,i,kt1,j:integer;
begin
kt:=0;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then begin
kt:=1;
break;
end;
if kt=0 then ktnt:=1
else ktnt:=0;
end;
{-------------------------------------------}
begin
clrscr;
write('Nhap n='); readln(n);
st1[1]:='1';
for i:=2 to n do
st1[i]:='0';
st:='';
for i:=1 to n do
st:=st+st1[i];
val(st,x);
for i:=1 to n do
st2[i]:='9';
st3:='';
for i:=1 to n do
st3:=st3+st2[i];
val(st3,y);

dem:=0;
for m:=x to y do
{-----------------------------------------------}
begin
begin
b:=m;
repeat
kt:=ktnt(b);
if kt=0 then break
else b:=b div 10;
until b<10;
if (ktnt(b)=1) and (b>1) then

begin

write(m,' ');

inc(dem);

end;
end;
end;

writeln;

writeln('Co ',dem,' so sieu nguyen to co ',n,' chu so');
{-------------------------------------------------}
readln;
end.

16 tháng 9 2023

nam moooooooooooooooooooooooooooooooo

 

19 tháng 3 2022

753?

19 tháng 3 2022

số 753