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
2 lượt xem
2 đáp án
21 giờ trước