Садовод вася посадил у себя на участке, на севере, юге, западе и востоке по саженцу деревьев: вишня, груша, слива, яблоня. но на следующий год забыл, что где растет, но помнит несколько правил, по которым он расположил саженцы: 1.на востоке растёт либо слива, либо вишня. 2.сторона света, в которой растет груша соседняя со стороной света, в которой растет яблоня и соседняя со стороной света, в которой растет слива. 3.груша растёт на западе, тогда и только тогда, когда на востоке вишня или слива. 4.вишня растёт на юге, тогда и только тогда, когда на севере слива или груша. васе вспомнить расположение деревьев. в ответ выведите первые буквы саженцев, начиная с севера и по часовой стрелке. (например, если на севере растет вишня, на востоке – груша, на юге – слива, на западе – яблоня, то в ответе указать вгся)

Так как на востоке растут либо вишня, либо слива, то там не могут расти груша и яблоня, ставим минусы в таблицу. так как по обе стороны от груши должны расти яблоня и слива, то для груши остаётся место только на западе (так как север и юг будут свободны), ставит плюс в в таблице на пересечении груша/запад, а по вертикали и горизонтали все свободное заполняем минусами. "сторона света, в которой растет груша соседняя со стороной света, в которой растет яблоня и соседняя со стороной света, в которой растет слива." нам известно, что слива может расти на востоке, но восток - сторона, не соседняя с западом, значит, на востоке слива расти не может, тогда на востоке растет вишня. ставим плюс в таблице на пересечении восток/вишня, по горизонтали и вертикали от этого плюса все заполняем минусами. из условия 4 исходим из того, что вишня у нас растет не на юге, значит ни груша, ни слива не растут на севере. тогда для сливы остаётся место только на юге, а для яблони, соответственно, на севере. север - яблоня, восток - вишня, юг - слива, запад - груша. ответ: явсг

Var a,b: integer; begin write('введите число а '); readln (a); write('введите число б '); readln (b); if (a = b) then writeln ('числа равны') else if (a < b) then begin if ( a mod 5 = 0) then writeln ('число а меньше и делится на 5') else writeln('число а меньше и не делится на 5'); end else begin if ( b mod 5 = 0) then writeln ('число б меньше и делится на 5') else writeln ('число б меньше и не делится на 5'); end; end.