viết chương trình nhập vào n số nguyên in ra có bao nhiêu số chính phương và danh sách số chính phương đó (pascal)
2 câu trả lời
Var n,i,d:Longint;
Begin
Readln(n);
d:=0;
For i:=1 to n do
Begin
If Frac(sqrt(i))=0 then
Begin
Writeln(i);
d:=d+1;
End;
End;
Write(d);
Readln;
End.
uses crt;
var n,i,d:longint;
function cp(n:longint):boolean;
begin
exit(sqrt(n)=trunc(sqrt(n)));
end;
begin
clrscr;
readln(n);
for i:=1 to n do
if cp(i) then
begin
inc(d);
write(i,' ');
end;
writeln;
write(d);
readln;
end.
