Umiestnenie súboru www.TrSek.com/zadania/cis_stv.pas
{ CIS_STV.PAS               Copyright (c) TrSek alias Zdeno Sekerak }
{ Je zname, ze lubovolne prirodzene cislo mozno vyjadrit ako sucet  }
{ styroch stvorcov nazapornych cisel. Najdite taketo vyjadrenia pre }
{ vsetky cisla mensie ako dane n.                                   }
{                                                                   }
{ Datum:23.05.2004                             http://www.trsek.com }

program stvorce_cisel;
var i,s:integer; { pre slucky }
    n:integer;   { cislo n }
    zb:integer;  { zbytok po deleni }
    cc:integer;  { jednotlive stvorce }

begin
  WriteLn('Rozlozim cislo na sucet 4 stvorcov nezapornych cisel.');
  Write ('Zadaj cislo n:');
  ReadLn(n);

  { pre vsetky cisla zaradom }
  for i:=1 to n do begin
    Write(i:3,'=>');
    zb:=i;

    { zisti stvorce }
    for s:=1 to 4 do begin
      cc:=Trunc(sqrt(zb));
      zb:=zb-(cc*cc);
      Write(cc,',');
    end;
    WriteLn;

  end;

  ReadLn;
end.
Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com