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

• #2014 papg79 tag

  Új Válasz 2007-10-01 14:40:05 #2014

  Ú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

  

  papg79

  tag

  Sziasztok!

  Nemrég kezdtem a Turbo Pascal-t, de már az elején elakadtam a következő feladattal:
  Írassa ki a számokat 1-től 20-ig egymás alá a 40. oszlopba! Én ezt így próbáltam megoldani:

  program ciklus1;
  uses crt;
  var
  i:integer;
  begin
  clrscr;
  gotoxy(40,1);
  for i:=1 to 20 do
  writeln(i);
  readln;
  end.
  Ezzel csak az a gond, hogy kiírja a számokat egymás alá szépen 20-ig, viszont nem a 40. oszlopba. Mit rontottam el? Előre is köszi a segítséget!!

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