ai có thể lấy lại nic siêu xinh đẹp giùm mình thì mình like cho 15 like luôn
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.
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
vì Số a khi chia cho 45 dư 44 nên a= 45x+44 (x là thương khi chia a cho 45).
ta lại có:
a: 15 =(45x+ 44):15= 3x+2+ 14:15.
khi a chia cho 15 được 3x+2 và dư 14.
theo đề bài ta lại có : khi chia cho 15 được thương bằng số dư
=>3x+2 =14
<=> 3x=12
<=> x=4
vậy a= 45*4 + 44= 224.
thật giống nhu nhau. ước mơ một nơi, được sống vui như tâm hồn ước ao
thành con người khác ta sông thật với khác vọng, và ta sẽ vui hơn bây giờ
người có nghĩ rằng sẽ thành sự thật, mình sẽ bây lên như đàn bướm kia
tự do mình bay về nơi minh mơ êm đềm , và tôi cũng như người khác khao..o..o
thật giống nhu nhau. ước mơ một nơi, được sống vui như tâm hồn ước ao
thành con người khác ta sông thật với khác vọng, và ta sẽ vui hơn bây giờ
thật giống nhu nhau. ước mơ một nơi, được sống vui như tâm hồn ước ao
thành con người khác ta sông thật với khác vọng, vì ta cũng như nhau mà thôi
bn ơi nghĩ sao? mk chả biết tên đăng nhập, mật khẩu................................. thì có lạy trời mới lấy đc ớ!
tên đăng nhập và mật khẩu là gì hả bạn