Question

cho trước hai số nguyên dương p,q . hãy đếm số lượng các số cộng chính phương n nằm trong khoảng từ p đến q dạng pascal mọi nhười giúp em với em cần gấp

 

Answer 1

Program HOC24;

var p,q,i,d: integer;

begin

write('Nhap p: '); readln(p);

write('Nhap q: '); readln(q);

d:=0;

for i:=p to q do if sqr(trunc(sqrt(i))) = i then d:=d+1;

write('Co ',d,' so chinh phuong');

readln

end.