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

• #589 Gabró tag VladimirR #587

  Új Válasz 2005-04-08 17:16:22 #589

  Ú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

  

  Gabró

  tag

  válasz VladimirR #587 üzenetére

  kösz. egy barátommal megoldottuk (inkább ő volt). Ez is lefut de a kimenet.txt üres marad Biztos én vagyok a hunyó.
  köszi, hogy segítettél.

• #586 Gabró tag

  Új Válasz 2005-04-08 16:03:19 #586

  Ú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

  

  Gabró

  tag

  Hello,
  
  ennek a futásának a végeredményét szeretném egy txt-be kiíratni freepascallal.
  
  program makro;
  uses crt;
  
  var
  i:integer;
  
  begin
  clrscr;
  i:=1;
  while i<5001 do
  begin
  write('A');
  write(i);
  write(':E');
  write(i);
  write(',');
  i:=i+2;
  end
  end.
  
  az se lenne gond hogyha el lehetne hagyni a sok felesleges write-ot (sajna nem emlékszem hogy lehet egy write ''alá'' beírni)
  
  kösz a segítséget
  
  [Szerkesztve]

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