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

• #526 Fermat tag FehérHolló #524

  Új Válasz 2007-04-22 15:28:40 #526

  Ú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

  

  Fermat

  tag

  válasz FehérHolló #524 üzenetére

  program SZAMOLAS;
  uses CRT;
  var
  i, n: integer;
  begin
  clrscr;
  write('Kerem a szamot:');
  Readln(n);
  repeat
  for i := 1 to n do begin
  GotoXY(30, 5 + i);
  write(i, ' Pascal');
  Delay(500);
  delline;
  end;
  for i := n downto 1 do begin
  GotoXY(30, i + 5); Write(i: 4, ' Pascal');
  Delay(500);
  delline;
  end;
  
  until keypressed;
  end.
  
  
  igy akart kinezni, tok vicces
  Miert nem csinaljan meg szepen rendezetten
  
  [Szerkesztve]

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