mình đang cần gấp:
Nhập n từ bàn phím tìm các số chính phương nhỏ hơn n
ví dụ: nhập n là 10 tìm các số chính phương nhỏ hơn 10 và lớn hơn 0
mình đang cần gấp: Nhập n từ bàn phím tìm các số chính phương nhỏ hơn n ví dụ: nhập n là 10 tìm các số chính phương nhỏ hơn 10 và lớn hơn 0
By Vivian
program Taylor;
uses crt;
var n,i:longint;
begin
clrscr;
write(‘n=’);readln(n);
writeln(‘Cac so chinh phuong tu 0 den ‘,n,’: ‘);
for i:=1 to n-1 do
if sqrt(i)=trunc(sqrt(i)) then writeln(i);
readln
end.