Question

viết chương trình in ra số chính phương đọc từ tệp a chứa 1 số nguyên dương n và in ra tệp b dãy số chính phương <=n

Answer 1

var        i,n:longint;f1,f2:text;
begin
           assign(f1,'a.inp');reset(f1);
           assign(f2,'b.out');rewrite(f2);
           readln(f1,n);
           for i:=1 to n do if i=sqr(trunc(sqrt(i))) then write(f2,i,' ');
           close(f1);close(f2);
end.

Chúc bạn học tốt!