Уроки от Вампира

[Vieraw]

Вам уже реально заняться нечем? И вам не жалко тратить свое время на какую-то ерунду? Если человек что-то делает не так - это не значит, что нужно так его критиковать я сам не в восторге от его работ, но все же зачем опускаться до такого? И вы не думаете, что можете тоже совершить ошибку и оказать на его месте?

 

[Blashyrkh]

Вам уже реально заняться нечем? И вам не жалко тратить свое время на какую-то ерунду? Если человек что-то делает не так - это не значит, что нужно так его критиковать я сам не в восторге от его работ, но все же зачем опускаться до такого? И вы не думаете, что можете тоже совершить ошибку и оказать на его месте?

Нет xD

 

[4akN]

Урок №7 осваиваем паскаль

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
  const
    CharBegin = ord('A');
    HelloWorld : array[1..11] of byte = (ord('H')-CharBegin, ord('e')-CharBegin, ord('l')-CharBegin,
    ord('l')-CharBegin, ord('o')-CharBegin, ord('_')-CharBegin, ord('W')-CharBegin, ord('o')-CharBegin,
    ord('r')-CharBegin, ord('d')-CharBegin, ord('_')-CharBegin);
 
  var
    a: integer;
 
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    for a := low(HelloWorld) to high(HelloWorld) do
      Write(chr(HelloWorld[a]+CharBegin));
    ReadLn;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;