Trebuie sa ii multumesc unei profesoare din Lunca Cernii care a gasit o solutie geniala in mai putin de o ora
Enunt problema:
Sa se afiseze primele n patrate perfecte.
Ex: N=4
1 4 9 16
Solutia :
var i,k,n:Integer;
begin
Write('Dati N : ');ReadLn(n);
K:=0;
i:=1;
While K<N do
begin
if frac(Sqrt(i))=0 then
begin
Write(i,' ');
K:=K+1;
end;
i:=i+1;
end;
ReadLn;
end.
Sper k v-ati luminat ... asa cum m-am luminat si eu