câu d gợi ý cho bạn là =BC² nhé

vì sao các bạn tính được ra vậy nêu cách làm đi

TICK CHO MÌNH CÁC BN NHÉ

dài thế thì ai rảnh mà làm

HSG à, bài khó vc

thắp diêm

phòng số 3

không thực hiện đc vì số phần tử tối đa của mảng phải đc xác định.

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.

Program nts;

uses crt;

begin

clrscr;

writeln('tong = ' ,55);

readln;

end.