Question

tôi thách mọi người viết ct nhập n xem n có phải số bất khả xâm phạm hay không

Answer 1

:/ ? bất khả xâm phạm

Answer 2

ko làm đc thì nói vứt đi bày đặt thách

Answer 3

t làm được chúng m mất gì

Answer 4

chạy ct của t nè mở to mắt ra

var n:integer;
function tonguoc(n:longint):longint;
var i,t:integer;
begin
t:=0;
for i:=1 to n div 2 do
if n mod i=0 then t:=t+i;
tonguoc:=t;
end;
function ktbkxp(n:longint):boolean;
var i:longint;
kt:boolean;
begin
kt:=true;
for i:=2 to n*7 do
if tonguoc(i)=n then
begin
kt:=false;
break;
end;
ktbkxp:=kt;
end;
begin
write('n=');readln(n);
if ktbkxp(n) then writeln(n,' la so bat kha xam pham')
else writeln(n,' khong phai so bat kha xam pham ');
readln;
end.

Answer 5

t nghĩ mãi mới ra đấy

Answer 6

ai chấm GP bừa bãi thế chấm linh tinh

Answer 7

bạn Tú Nguyễn bạn thách cái bạn làm được thì nói làm gì .bạn cho bạn giỏi còn cái bạn làm không làm được thì sao.còn nói mở to mắt ra nữa chứ .bạn làm thế chỉ khoe khoang bản thân giỏi

Answer 8

v bn thử viết thuật toán số kì quặc đc ko bn??