Viết chương trình tính tổng các số chính phương từ 1 đến n ( n được nhập từ bàn phím )
2 câu trả lời
var a: array[1..32000] of integer;
i,n : integer;
function nt(x: integer): boolean;
var i: integer;
begin
nt:=false;
if x<2 then exit;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then exit;
nt:=true;
end;
begin
write('n='); readln(n);<br />for i:=1 to n do<br />begin<br />write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if nt(a[i]) then write(a[i],' ');
readln
end.
var t,i,n: integer;
function cp(x: integer): boolean;
begin
cp:=false;
if x<0 then exit;
if x=sqr(trunc(sqrt(x))) then cp:=true;
end;
begin
readln(n);
t:=0;
for i:=1 to n do
if cp(i) then t:=t+i;
write(t);
readln
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
