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

• #776 Diskcopy tag Darth_Revan #774

  Új Válasz 2005-11-22 07:33:27 #776

  Ú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

  

  Diskcopy

  tag

  válasz Darth_Revan #774 üzenetére

  hi!
  Uses crt;
  var st : string;
  hossz: string;
  begin
  clrscr;
  Writeln('Kérem a szöveget:');Readln(st);
  Delete(st,round(length(st)/2),1);
  Str(length(st),hossz);
  st:=Concat(st,hossz);
  writeln(st);
  end.
  
  (Nem csak 20 karakterre jó, bármennyire)
  
  
  [Szerkesztve]

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