FREE PASCAL Đọc vào file văn bản TEST.INP số nguyên dương n (n ≤10^9) Ghi ra file văn bản RESULT.OUT .Nếu n là số siêu nguyên tố thì ghi giả trị 1 ngược lại ghi giá trị 0 GIÚP E VỚI Ạ CẦN GẤP

nguyenthikimoanh2001th

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 29 xem

1 trả lời

Thích Trả lời

hienle.ulis

const fi='SNT.INP';
fo='SNT.OUT';
var n:qword;
f1,f2:text;
function nt(n:longword):boolean;
var i:longword;
begin
if n<2 then exit(false);
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then exit(false);
exit(true);
end;
function snt(n:longword):byte;
var i:longword;
begin
while n<>0 do
begin
if nt(n)=false then exit(0);
n:=n div 10;
end;
exit(1);
end;
begin
assign(f1,fi);reset(f1);
assign(f2,fo);rewrite(f2);
readln(f1,n);
writeln(f2,snt(n));
close(f1);close(f2);
end.

Vote (0) Phản hồi (0) 2 năm trước

trantuyetnhung5758

const fi='TEST.INP';
fo='RESULT.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
if n<23 then exit(0) else
begin
while n<>0 do
begin
if isPrimeNumber(n)=0 then exit(0);
n:=n div 10;
end;
exit(1);
end;
end;
begin
assign(input,fi);reset(input);
assign(output,fo);rewrite(output);
readln(n);
write(isSuperPrimeNumber(n));
close(output);
close(input);
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Giải hộ mik vs ạ. Cảm ơn mọi người nhìu

Dịch hộ mik bài này vs, đúng nhất có thể nha English is the first language of many people in countries outside the United Kingdom. When you meet speakers of English from around the world, you immediately notice that they do not all speak in the same way. There are also some differences in the words they use, including the names of general objects that are part of everyone’s daily life. But although pronunciation and vocabulary are not the same everywhere, it is interesting that English speakers from opposite sides of the world can understand each other quite easily. It does not seem to care where they learnt the language. And of course this is one reason why speakers of other languages are keen on learning English too. If you know English, you are more likely to be able to study or work in all sorts of exciting places, such as the United States or Australia.

vẽ cho mình mấy hình ảnh giáng sinh đẹp nha để mình làm hình nền

Nhận xét về biện pháp của mĩ để thoát khỏi khủng khoảng kinh tế???help mn oi

Nêu sự đa dạng và tập tính của một số loài sâu bọ, thân mềm, giáp xác

1)Cho hàm số y=f(x) = x²-5x+6 a. Tìm f(2);f(-0,75) b. Tìm x để y=6 2) Tìm giao điểm 2 đồ thị sau y=3x và y=4 bằng phép tính và bằng đồ thị

Số vòng xoắn trong 1 phân tử AND là 100 vòng, phân tử này có 400X a. Xác định số lượng từng loại Nu trong phân tử AND b. Xác định chiều dài của phân tử AND

lập bảng so sánh và rút ra nhận xét , xã hội phong kiến ở phương đông và châu âu

Cho hình chóp S ABCD có đáy ABCD là hbh điểm M nằm trên cạnh BC. Gọi N,P lân lượt là các điểm trên các cạnh CD và SC sao cho CN = 3ND, SC =4SP. CMR SD // (MNP)

Câu 8: Một ô tô đang chuyên động với vận tốc 18km/h thì tăng tốc chuyển đong nhanh dần dều nhờ một lực kéo 4800N của động cơ. Sau 20s tôc độ ô tô đạt 54km/h. Biết hệ số ma sát giữa bánh xe và mặt đường là u = 0,15. Lấy g= 10m/s. a. Tính quãng đường ô tô di duợc trong thời gian 20s này. b. Tính khối lượng của ô tô. c. Tính lực ma sát tác dụng vào ô tô. d. Nếu tiếp tục chuyển đong như thế thì sau thời gian bao lâu ô tô sẽ đạt vận tốc 72km/h, tính ke từ khi bắt đầu tăng tốc

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến