Cho dãy A gồm N số nguyên dương . Cho biết dãy A có bao nhiêu số chính phương và tính tổng các số chính phương đó
2 câu trả lời
program bai_giai;
uses crt;
var A:array[1..10000] of integer;
n,i,d,t:byte;
begin
clrscr;
for i:=1 to 20 do
begin
write('A[',i,']= '); readln(A[i]);
if A[i]=sqr(trunc(sqrt(A[i]))) then
begin
d:=d+1;
t:=t+A[i];
end;
end;
writeln('Co ',d' so chinh phuong');
writeln('Tong cac so chinh phuong la: ',t);
readln;
end.
var i,n,d,s:longint;
a: array[1..1000] of longint;
begin
write('Nhap n: '); readln(n);
for i:= 1 to n do
begin
write('Nhap phan tu thu ',i); read(a[i]);
if sqrt(a[i]) = trunc(sqrt(a[i])) then
begin
inc(d);
s:=s+a[i];
end;
end;
writeln;
writeln('So chinh phuong la: ',d);
write('Tong so chinh phuong la: ' ,s);
readln;
end.
Câu hỏi trong lớp
Xem thêm