Як визначити значення логічно виразу , що містить логічні операції and, or і not? Як для пошуку відповіді на це запитання можна використати таблиці істинності?

Никита,оставшись.один,пошёл в сарай и увидел там пустую бочку.Он думал,что в ней живёт маленький человечек с длиной бородой.Никита разговаривал с ним,по отдать ножницы,которые пропали у мамы.За деревней кто-то ухнул.Бочка отозвалась страшным голосом.Никита испугался и по защиты у солнца.

Солнце было доброе и ласковое.Никита подумал,что это дедушка теперь живёт на солнце.

За огородом находился старый колодец.Никита думал,что на дне живут маленькие водяные жители,толстые,безволосые и вредные.Потом ему представилось,что там ещё и великан.

У сарая он увидел две земляные норы.Он решил,что это змеиные норы.

Никита увидел на огороде старый пень и решил,что это голова человека.Лицо у пня было сердитое.

Он смотрел на старую баню и думал.что это бабушка превратилась в избушку.

Петух представлялся ему пастухом,а цветок-маленьким ребёнком.

ответ:

на форму поставил компонент memo

в edit1 и edit2 вводим значения строк и столбцов

для цикла for i: = for j: =

на кнопке следующий код

объяснение:

procedure tform1.button1click(sender: tobject);

  var i,j: integer; s: string;

begin

  a: = strtoint(edit1.text);

  b: = strtoint(edit2.text);

    for i: = 1 to a do begin

          s: = '';

    for j: = 1 to b do

      s: = s+'   '+inttostr(i*j);

      memo1.lines[i-1]: = s;

    end;

end;