Új hozzászólás Aktív témák

• #314 Szsolt tag heihachi #312

  Új Válasz 2004-10-27 09:35:19 #314

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Szsolt

  tag

  válasz heihachi #312 üzenetére

  Ne aggódj, másfele is papiruszon nyomják a ciklusokat
  Szépen összeválogattad akkor a dolgokat, és ezt mind egyszerre nyomod?...egézségedre
  
  
  [Szerkesztve]

• #310 Szsolt tag heihachi #307

  Új Válasz 2004-10-27 09:20:56 #310

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Szsolt

  tag

  válasz heihachi #307 üzenetére

  Hogy sikerült a Zh-d?

• #308 VladimirR nagyúr heihachi #307

  Új Válasz 2004-10-26 20:47:41 #308

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  VladimirR

  nagyúr

  válasz heihachi #307 üzenetére

  tulbonyolitod
  
  
  begin
  j:=round(sqrt(n));
  for i:=1 to n do
  writeln(i*i);
  end.
  
  
  deklaraciot meg ilyeneket nem irtam, de szvsz ez igy szebb

• #307 heihachi addikt heihachi #306

  Új Válasz 2004-10-26 20:38:06 #307

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  heihachi

  addikt

  válasz heihachi #306 üzenetére

  Elég szar, de megy:
  
  program Project2;
  
  {$APPTYPE CONSOLE}
  
  uses
  SysUtils;
  
  const
  n = 10;
  
  var
  j : integer;
  
  begin
  for j := 1 to n do begin
  if sqrt(j)-round(sqrt(j))=0 then writeln(j);
  end;
  readln;
  end.

Új hozzászólás Aktív témák