Вопрос-ответ

[Гомер]

Это классная ойтишная загадка. Сразу видно, что Вы человек подготовленный и можете работать на КЭМЗе.

[Rover]

Загадка. Кто отгадает, то молодец.

Program Bot;

да вы могли бы и просто написать "забаньте меня" и все.

[LLInuoH]

Загадка. Кто отгадает, то молодец.

Program Bot;
uses crt, kovrov33;

VAR
  a, b, c, s, s1, s2, s3, s4 : integer; {для цикла}
  msk, drink, ponts: Boolean;
  wtf : Boolean; {постоянная - характеризует любую непонятную ситуацию}
  srachmassiv : array [1..99] of char; {выводимый на экран символьный массив словоформ, заполняется отдельно}
  wodrmassiv : array [1..99] of char; {выводимый на экран символьный массив словоформ, заполняется по ходу}
  food : array [1..99] of jpeg; {фоты хавчика, заполяется отдельно}
  street : array [1..99] of jpeg; {фоты окружающей среды, заполяется отдельно}
  slova_kovrov33 : Char; {считываемая символьная переменная, внешний раздражитель}
  topic_dbl_mem : array [1..9999] of char; {символьный массив, память данных}

{ Инициализация начальных значений }
const
  Wtf = true;     
  ponts = true;
  s2 = 90000;
  s3 = 1;
{ панеслась, Power On }
BEGIN
  clrscr;
  randomize;
     for a:=1 to 50 do begin
       for b:=1 to 365 do begin
         If random(7) < 5
         Then
           msk = true;
         Else
           msk = false;
         End;
         
         for c:=1 to 24 do begin
           If random(111) < 31
           Then
             drink = true;
           Else
             drink = false;
           End;

             for s:=1 to s2-s3

               writeLn (srachmassiv[random(99]));
               s1:=random(90000);
               s3:=s2-s1;
               pause s1;
               
               for s4:=1 to 9999 do begin
                 If ReadLn (slova_kovrov33) = topic_dbl_mem(s4)
                 Then writeLn (srachmassiv[random(99]));
                 Else
                   Begin                 
                     topic_dbl_mem[s4]:= slova_kovrov33;
                     writeLn (srachmassiv[random(99]));
                     If random(99) < 30 do begin
                       If drink and wtf do writeLn(food[random(99)])
                       Else 
                         Begin
                           writeLn(street[random(99)])
                           If random(99) < 2 do begin
                             wodrmassiv[random(99)]=slova_kovrov33;
                             If random(99) < 2 do writeLn (wodrmassiv[random(99)]);
                           End;
                         End;
                     End;
                   End;
               end;
            end;
         end;
       end;
     end;
END.

у меня глаза от паскальности этой потекли, где-то это чудо ещё пользуют?

[Rover]

оборонные предприятия.
там все ламповое.
даже паскаль.

[LonelyLion]

ебеем писи ети

Дизька, голос!

[NetAdmin]

Это классная ойтишная загадка. Сразу видно...

да...

у меня глаза ... потекли, где-то это чудо ...?

...
там все ламповое.
даже ...

... ети

Очень не плохо. Такое впечатление, что отгадка известна уже. Но... сделаем перерыв

[HexMaster]

А в чём загадка?

[NetAdmin]

Вопрос знатокам, даже три:

Есть ли жизнь на Марсе?

Говорят, что один человек не может столько подъездов уделать в жидкостном смысле этого слова, тем более на соседнем континенте, да еще и через океан. Правда ли?

Правда ли, что в США на юге штата Невада, в 133 км к северо-западу от Лас-Вегаса, на южном берегу сухого солёного озера Грум-Лейк нет серых человечков?

[Вселенское Зло]

вы какие вещества больше любите?

[Rover]

вы какие вещества больше любите?

чувак, как и хозя - любитель травки.
у него и прескурант был.
из удаленного.
Микрантемум малоцветковый (пучек 5*5 см) - 200 руб
Наяда гваделупская (10 веток 10-15 см ) - 150 руб
Людвигия ползучая (5-6 веток) - 150 руб
Анубиас нана (куст до 10 листочков) - 200 руб
Анубиас нана (куст до 20 листочков) - 400 руб
Мох "Пламя" (Flame moss 4х5см) - 150 руб
Мох "Америка" (sp. Giant Soufh America 4х5см) - 150 руб

[NetAdmin]

чувак, как и хозя - любитель травки.
у него и прескурант был.
из удаленного.
Микрантемум малоцветковый (пучек 5*5 см) - 200 руб
Наяда гваделупская (10 веток 10-15 см ) - 150 руб
Людвигия ползучая (5-6 веток) - 150 руб
Анубиас нана (куст до 10 листочков) - 200 руб
Анубиас нана (куст до 20 листочков) - 400 руб
Мох "Пламя" (Flame moss 4х5см) - 150 руб
Мох "Америка" (sp. Giant Soufh America 4х5см) - 150 руб

Брать будешь?

[NetAdmin]

вы какие вещества больше любите?

Я противник

[HexMaster]

Я противник

Опечатка, противный?

[NetAdmin]

Опечатка, противный?

Нет, противник. Отношение к веществам отрицательное.

[Rover]

а у веществ к вам?