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

• #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