Question

Viết chương trình nhập vào mảng gồm n phần tử. Tính tổng các số nguyên tố và chính phương có trong dãy (Nếu có 1 số vừa chính phương vừa nguyên tố thì gấp 2 nó lên).

Answer 1

Em học không có giỏi tin, nên em không trả lời được

Answer 2

cô ơi, hình như đâu có số nào vừa là nguyên tố vừa là chính phương đâu cô

vd: nguyên tố là: 2 3 5 7 11 13 17 19 23 29...

chính phương là: 0 1 4 9 16 25 36 49...

Answer 3

uses crt;
var a:array[1..100]of integer;
n,i,t,kt,j:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{---------------------------xu-ly-------------------------}
t:=0;
for i:=1 to n do
begin
if trunc(sqrt(a[i]))=sqrt(a[i]) then t:=t+a[i];
kt:=0;
for j:=2 to trunc(sqrt(a[i])) do
if a[i] mod j=0 then kt:=1;
if kt=0 then t:=t+a[i];
end;
writeln('tong cac so nguyen to va chinh phuong co trong day la: ',t);
readln;
end.

Answer 4

uses crt;
var a:array[1..100]of integer;
n,i,t,kt,j:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{---------------------------xu-ly-------------------------}
t:=0;
for i:=1 to n do
begin
if trunc(sqrt(a[i]))=sqrt(a[i]) then t:=t+a[i];
kt:=0;
for j:=2 to trunc(sqrt(a[i])) do
if a[i] mod j=0 then kt:=1;
if kt=0 then t:=t+a[i];
end;
writeln('tong cac so nguyen to va chinh phuong co trong day la: ',t);
readln;
end.