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.
Input:
8
1 2 1 2 1 3 2
Output:
2
Như vầy à bn???
Mà nếu đúng thì Tick cho mk nha!Thank you nhìu!!
CÂU1: Lưu trữ thông tin là hoạt động ghi chép thông tin vào vật mang tin.
Dữ liệu: thông tin ghi trên vật mang tin mang tin được gọi là dữ liệu. Dữ liệu được thể hiện dưới hình dạng văn bản, số, hình ảnh và âm thanh.
Trao đổi thông tin là hoạt động đưa thông tin sau khi xử lí ra bên ngoài.
CÂU 2:
Những hạn chế lớn nhất của máy tính hiện nay là:
- Tất cả sức mạnh của máy tính đều phụ thuộc vào con người và do những hiểu biết của con người quyết định.
- Có nhiều việc hiện tại máy tính vẫn chưa thể làm được, ví dụ phân biết mùi vị, cảm giác, ... Do vậy máy tính chưa thể thay thế hoàn toàn con người, đặc biết chưa thể có năng lực tư duy như chính con người.
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.