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

• #748 Diskcopy tag peterszky #747

  Új Válasz 2005-10-19 17:40:00 #748

  Ú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 peterszky #747 üzenetére

  összedobtam, kicsit bénán, elszoktam már pascal szintaktikától, de müxik:
  
  var a,b : char;
  i : integer;
  begin
  Write('Elso betü:'); Readln(a);
  Write('Masodik betü'); Readln(b);
  for i:=ord(a) to ord(b) do write(chr(i));
  {fordítottan}
  writeln;
  for i:=ord(b) downto ord(a) do write(chr(i));
  end.
  
  persze hiba, stb kezelés semmi
  
  [Szerkesztve]

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