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

• #122 b14 senior tag KovacsUr #120

  Új Válasz 2004-07-06 18:33:38 #122

  Ú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

  

  b14

  senior tag

  válasz KovacsUr #120 üzenetére

  Hello
  
  Mindenesetre kosz a megoldasokat, de enmashogy oldottam meg, de az kicsit hosszabb.
  Leirom, hogy mas talan megnezi.
  biztos van benne hiba, mert fejbol irom.
  
  uses crt;
  var
  szam,hosszusaga:longint;
  filetempext;
  ch:char;
  
  begin
  writeln('Kerek egy szamot');
  readln(szam);
  assign(filetemp,'c:\nemkell.txt');
  rewrite(filetemp);
  write(filetemp,szam);
  close(filetemp);
  assign(filetemp,'c:\nemkell.txt');
  reset(filetemp);
  repeat
  read(filetemp,ch);
  hosszusaga:=hosszusaga+1
  until eof(filetemp);
  close(filetemp);
  writeln('A szam hossza: ',hosszusaga);
  end.
  
  Bocsesz a zold kis pofiert,de a kettospont t az a pofi es mashogy nem tuttam
  
  [Szerkesztve]

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