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

• #587 VladimirR nagyúr Gabró #586

  Új Válasz 2005-04-08 16:16:06 #587

  Ú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 Gabró #586 üzenetére

  var i: integer;
       f: text;
  
  begin
          assign(f, 'c:\kimenet.txt');
          rewrite(f);
          i:=1;
          while i<5001 do
          begin
                  writeln('A',i,':E',i,',');
                  inc(i,2);
          end;
          close(f);
  end.
  

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