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