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

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