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
| HÀNG PHÍM | GHI SỐ TỰ NHIÊN THỨ TỰ TRÊN XUỐNG DƯỚI |
| Hàng phím trên | 2 |
| Hàng phím cơ sở | 3 |
|
Hàng phím số |
1 |
| Hàng phím chứa phím cách | 5 |
| Hàng phím dưới | 4 |
program FUTURE;
var n,dem:int64;
a:array[1..1000000] of int64;
i,j:longint;
kt:boolean;
function KTSNT(n:int64):boolean;
var i:longint;
kt:boolean;
begin
if n < 2 then KTSNT := false
else begin
kt := true;
for i:= 2 to trunc(sqrt(n)) do
if n mod i = 0 then
begin
kt := false;
break;
end;
if kt = true then KTSNT := true
else KTSNT := false;
end;
end;
BEGIN
readln(n);
for i := 1 to n do read(a[i]);
dem := 0;
for i := 1 to n do
begin
if KTSNT(a[i]) then continue
else if a[i] = 1 then continue
else
begin
kt := true;
for j := 2 to a[i]-1 do
if a[i] mod j = 0 then
if KTSNT(j) = false then
begin
kt := false;
break;
end;
end;
if kt = true then inc(dem);
end;
write(dem);
END.
Ta chỉ cần vào INSERT=>TABLE cà chọn số ô cần vẽ và chỉnh sửa kích thước của các ô.
Về bài báo tường thì để bài báo thêm đẹp và dễ hiểu thôi
Còn về sinh học để chúng ta có thể hình dung được sự vật, có thể quan sát sự vật cần tìm hiểu và giúp cho bài giảng, bài học dễ tiếp thu hơn thôi
Nếu thấy trả lời hay, tick nha !!!