a/
program Hello;
uses crt;
var n,a,i:longint;
begin
readln(n);
a:= 1;
i:= 1;
while i <= n do
begin
if trunc(sqrt(a)) = sqrt(a) then
begin
write(a, ' ');
inc(i);
end;
inc(a);
end;
readln;
end.
Cách khác:
program Hello;
uses crt;
var n,i:longint;
begin
readln(n);
for i:= 1 to n do
write(i*i, ' ');
readln;
end.
===============================
b/
program Hello;
uses crt;
var m:longint;
begin
readln(m);
if trunc(sqrt(m)) = sqrt(m) then
writeln(m, ' la so chinh phuong.')
else
while trunc(sqrt(m)) <> sqrt(m) do
inc(m);
writeln(m);
readln;
end.