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.
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.
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ạ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
Khi nhập dữ liệu văn bản hoặc thao tác với hình ảnh, biểu tượng trên màn hình, em cần đến các thiết bị ngoại vi sau:
- Bàn phím : dùng để nhập dữ liệu văn bản.
- Chuột : dùng để chọn, di chuyển, thao tác với các hình ảnh, biểu tượng trên màn hình.
- Màn hình cảm ứng (nếu có): có thể dùng để chạm, chọn trực tiếp hình ảnh hoặc biểu tượng.
#include <bits/stdc++.h>
using namespace std;
long long n,dem,i;
int main()
{
freopen("bl1.inp","r",stdin);
freopen("bl1.out","w",stdout);
cin >> n;
for( i = 2; i <= n; i++)
{
dem = 0;
while(n % i == 0)
{
++dem;
n=n/i;
}
if(dem)
{
cout<<i;
if (dem>1) cout <<"^"<<dem;
if (n>i){
cout <<" * ";
}
}
}
return 0;
}
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.
a. Hợp lệ
b. Không hợp lệ (vì 3242 là số mà X là biến kiểu xâu )
c. Hợp lệ
d. Không hợp lệ (vì -3242 là số mà X là biến kiểu xâu )
uses crt;
var i,n ,dem:integer;
begin
clrscr;
Write( 'nhap so nguyen duong n: ');readln(n);
dem:=0;
for i:=1 to n do if n mod i = 0 then dem:=dem+1;
if(n<2) or (dem< >2) then writeln (n,' khong phai la so nguyen to')
else if dem=2 then writeln(n,' la so nguyen to');
readln
end.
program song_to;
uses crt;
var x,i,dem,tcs,t:longint;
function tongchuso(x:longint):longint;
begin
tcs:=0;
while x<>0 do
begin
tcs:=tcs+x mod 10;
x:=x div 10;
end;
tongchuso:=tcs;
end;
begin
clrscr;
write('nhap vao mot so:');readln(x);
dem:=0;
for i:=1 to x do
if x mod i=0 then dem:=dem+1;
if dem=2 then
begin
t:=0;
for i:=1 to tongchuso(x) do
if tongchuso(x) mod i =0 then t:=t+1;
if t=2 then write(x,' la so song to');
end
else write(x,' k la so song to');
readln;
end.
Pascal hay C++