Question

Viết chương trình nhập vàohai số tự nhiên a và b (a<b)

sau đó in ra màn hình:

-Các số chính phương x sao cho a<=x<=b

-Tông số chính phương đó

-Trung bình cộng các số chính phương đó

Mong các bạn giúp mình .Mình cần rất gấp. Cảm ơn nhiều

Answer 1

program nts;
uses crt;
var a,b,i,s,dem:longint;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a<b then
begin
for i:=a to b do
if sqr(round(sqrt(i)))=i then
begin
write(i,' ');
s:=s+i; dem:=dem+1;
end;
writeln;
writeln('tong=',s);
write('trung binh=',s/dem:3:2);
end;
readln;
end.