Question

Bài 9: Đọc số N từ tệp B9.TXT có N ≤ 10⁹ và tìm các số chính phương từ 2 đến N. Ghi kết quả ra tệp KQB9.TXT. Ví dụ:

B9.TXT	KQB9.TXT
20	4 9 16
43	4 9 16 25 36

 

Answer 1

const fi='b9.txt'

fo='kqb9.txt'

var f1,f2:text;

n,i:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=2 to n do 

  if trunc(sqrt(i))=sqrt(i) then write(f2,i:4);

close(f1);

close(f2);

end.

Answer 2

const fi='b9.txt'

fo='kqb9.txt'

var f1,f2:text;

n,i:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=2 to n do 

  if trunc(sqrt(i))=sqrt(i) then write(f2,i:4);

close(f1);

close(f2);

end.