nhập n, kiểm tra từ 1 đến n rồi in ra số chính phương (pascal)
2 câu trả lời
uses crt;
var i,n,j:longint;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do
for j:=1 to i do if(sqr(j)=i)then write(i,' ');
readln
end.
uses crt;
var i, t: longint;
n: int64;
begin
readln(n);
t:=trunc(sqrt(n));
for i:=1 to t do write(i * i, ' ');
readln;
end.
Câu hỏi trong lớp
Xem thêm