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.
Câu 1:mã chương trình:
var i,n,d,j:longint;
begin
readln(n);
for i:=2 to n do
begin
d:=0;
for j:=2 to trunc(sqrt(i)) do
if i mod j =0 then d:=d+1;;
if d=0 then writeln(i);
end;
readln;
end.
Câu 2: Mã chương trình:
var i,n,d,t:longint;
begin
readln(n);
if n<2 then write('ko phai snt')else
begin
t:=0;
while n>0 do
begin
d:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then d:=d+1;
if d=0 then n:=n div 10 else begin
t:=1;
break; {thoat khoi lenh}
end;
end;
if t=1 then write('ko phai snt') else write('la snt');
end;
readln;
end.
dạ cho em hỏi sách nào vậy ạ
à mà anh/chị lên vietjack.com sẽ có cả ạ
chúc anh/chị học tốt( lân sau đăng câu hỏi cho rõ ràng CTV vào ban acc đó)