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