Khét thế mang điện thoại lên lớp luôn mà ko sợ cô bới
Đúng 1
Bình luận (0)
B2:
uses crt;
var n,i,kt:integer;
begin
clrscr;
readln(n);
kt:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if kt=0 then write('phai')
else writeln('khong phai');
readln;
end.
Đúng 1
Bình luận (0)
cái này mà ko bị phát hiện mới lạ
Đúng 0
Bình luận (0)