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

• #9073 Zola007 veterán Sk8erPeter #9071

  Új Válasz 2015-10-10 20:18:56 #9073

  Ú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

  

  Zola007

  veterán

  válasz Sk8erPeter #9071 üzenetére

  program ph;
  uses crt;
  var a:integer;
  begin
  clrscr;
  write(chr(075),chr(111),chr(115),chr(122),chr(111),chr(110),chr(111),chr(109),chr(032),chr(097),chr(032),chr(107),chr(105),chr(105),chr(103),chr(097),chr(122),chr(105),chr(116),chr(097),chr(115),chr(116),chr(013),chr(010),chr(013),chr(010));
  write(chr(072),chr(097),chr(114),chr(111),chr(109),chr(032),chr(108),chr(101),chr(111),chr(108),chr(116),chr(097),chr(115),chr(032),chr(117),chr(116),chr(097),chr(110),chr(032),chr(118),chr(097),chr(108),chr(097),chr(107),chr(105),chr(013),chr(010));
  write(chr(116),chr(117),chr(100),chr(110),chr(097),chr(032),chr(118),chr(097),chr(108),chr(097),chr(115),chr(122),chr(111),chr(108),chr(110),chr(105),chr(032),chr(097),chr(032),chr(107),chr(101),chr(114),chr(100),chr(101),chr(115),chr(114),chr(101),'?'
  for a:=1 to 8 do writeln;
  writeln(':))');
  end.

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