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

Попробую описать ход предполагаемого решения, где большие буквы -имена, а маленькие - профессии, точнее их первые буквы. потом пишу номер условия и, в зависимости от него, переставляю имена и профессии на соответствующие позиции. сначала запишем их так, как в условии: б(д) в(с) а(п) ф(т) условия: 1. просто запоминаем 2. б(д) в(п)  а(с)  ф(т) 3.  просто запоминаем 4.  ф(т) б(д)  в(п)  а(с) 5.  просто запоминаем 6.  просто запоминаем 7.  ф(т)  а(д) в(п)  б(с) 8. просто запоминаем. проверяем выполнение всех условий, убеждаемся, что все верно. ответ: 1-токарь федор 2-дантист андрей 3-плотник виктор 4-слесарь борис

60,111100,3c,74

var

n: integer;

begin

readln(n);

case n mod 12 of

4: writeln('год крысы');

5: writeln('год коровы');

6: writeln('год тигра');

7: writeln('год зайца');

8: writeln('год дракона');

9: writeln('год змеи');

10: writeln('год лошади');

11: writeln('год овцы');

0: writeln('год обезьяны');

1: writeln('год петуха');

2: writeln('год собаки');

3: writeln('год свиньи');

end;

end.