nhập số N>=10 in ra các số chính phương từ 1 tới N giúp mik vs ạ đánh giá 5* cho b nào nhanh nhất cứu mik vs

0 bình luận về “nhập số N>=10 in ra các số chính phương từ 1 tới N giúp mik vs ạ đánh giá 5* cho b nào nhanh nhất cứu mik vs”

1. uses crt;

   var i,n:longint;

   begin

   clrscr;

   repeat readln(n);

   until (n>=10);

   for i:=1 to n do if (sqr(trunc(sqrt(i)))=i) then write(i,’ ‘);

   readln

   end.

   Bình luận