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.
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
dem:=0;
for i:=1 to n do
if trunc(sqrt(a[i]))=sqrt(a[i]) then inc(dem);
writeln(dem);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
Ta có với số nguyên a bất kì:
| a | - a = a - a = 0 là số chẵn nếu a\(\ge\)0
| a | - a = -a - a = -2a là số chẵn nếu a < 0
Tóm lại: | a | - a là số chẵn với a nguyên bất kì
=> | a1 - a2 | - ( a1 - a2) là số chẵn
| a2 - a3 | - ( a2 - a3) là số chẵn
| a3 - a4 | - ( a3 - a4) là số chẵn
....
| an- a1 | - ( an - a1) là số chẵn
=> [ | a1 - a2| + |a2 - a3| + | a3 - a4| +...+ |an - a1| ] - [( a1 - a2) + (a2 - a3) + ( a3 - a4)+...+ (an - a1) ] là số chẵn
mà ( a1 - a2) + (a2 - a3) + ( a3 - a4)+...+ (an - a1) = 0 là số chẵn
=> | a1 - a2| + |a2 - a3| + | a3 - a4| +...+ |an - a1| là số chẵn
Vậy S luôn là 1 số chẵn.
với n<5 thì ta có n=2 và n=3 là các số chính phương.
với n>4: giả sử an là scp
an=144...40000+4444=16k+4444 (do 10000 chia hết cho 16)
an= 4(4k+1111)
an/4= 4(k+277)+3
mà an là scp => an/4 là scp chia 4 dư 3 (vô lý)
Vậy an không là scp