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

• #211 b14 senior tag Gyuri16 #210

  Új Válasz 2004-08-19 19:35:19 #211

  Ú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 Gyuri16 #210 üzenetére

  Nem teljesen ertelek.
  Talan egy kicsit.
  Azzal kapcsolatban, amit iral (...123a....) nem probalkoztam, de nem is nagyon erdekel.
  
  igy szoktam pl egy szam hosszusagat nezve:
  uses crt;
  var
  a:string;
  b,c,d:integer;
  begin
  clrscr;
  writeln('Kérek egy számot');
  readln(a);
  b:=length(a);
  val(a,c,d);
  if d <>0 then begin writeln('hiba'); readln; halt; end;
  writeln('Ez osszesen ',b,' jegyu szam');
  readln;
  halt;
  end.

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