Добрый день , с решение заданий в файле.

Как решал я. Выписал коротко связи:

Анастасия- работает не в Нью-Йорке

Екатерина- работает не в Берлине, преподаёт не психологию

Нью-Йорк- здесь живёт не преподаватель англ.языка

Берлин- здесь работает преподаватель высш.математики

Далее- в задаче все связи идут между тремя категориями- имена (Анастасия, Екатерина, Анна), города (Нью-Йорк, Берлин, Амстердам) и предметы (англ.язык, высш.математика, психология).

Я составил таблицы связей между категориями. Получилось три таблицы: имена-города, имена-предметы, предметы-города. Их я заполнил, используя условия задачи (см. картинку). При заполнении предположим, что живущая в Нью-Йорке там и работает (не мотаться же ей через океан, за 6000км). Обозначения- плюс-связаны, минус-не связаны, вопрос-ещё неизвестно.

Далее, решаем по таблицам:

Получается, в Нью-Йорке работает преподаватель психологии, а Амстердам остаётся для преподавателя английского языка.

Далее, психологию преподаёт или Анастасия, или Анна. Но, так как преподают психологию в Нью-Йорке, то подходит только Анна.

Собственно, мы уже нашли ответ. Но, доведём решение до конца на всякий случай (а то вдруг там какие то противоречия вылезут).

Проставляем плюсы: Анна-Нью-Йорк и Анна-психология. (Ставим и минусы соответственно: для Анны- все города, кроме Нью-Йорка и все предметы, кроме психологии. Для психологии- все имена, кроме Анны. Для Нью-Йорка- все имена, кроме Анны.)

Получаем, для Екатерины остаётся только работа в Амстердаме, значит для Анастасии- в Берлине.

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

Ну, а высшая математика остаётся для Анастасии.

ответ: Анна преподаёт психологию в колледже Нью-Йорка.

Объяснение:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

uses graphABC;

var d,i:integer;

begin

d:=20;

setwindowsize(44*d,34*d);

centerwindow;

setfontstyle(fsBold);

for i:=1 to 40 do

begin

if i mod 5=0 then

begin

setpencolor(clBlack);

textout(2*d+i*d-d,2*d-d,inttostr(i*d));

end

else setpencolor(clSilver);

line(2*d+i*d,2*d,2*d+i*d,2*d+30*d);

end;

textout(2*d,2*d-20,'0');

for i:=1 to 30 do

begin

if i mod 5=0 then

begin

setpencolor(clBlack);

textout(2*d-30,2*d+i*d-5,inttostr(i*d));

end

else setpencolor(clSilver);

line(2*d,2*d+i*d,2*d+40*d,2*d+i*d);

end;

setpenwidth(2);

setbrushstyle(bsClear);

setpenwidth(4);

rectangle(2*d,2*d,windowwidth-2*d,windowheight-2*d);

line(7*d,7*d,27*d,7*d);

line(32*d,7*d,37*d,7*d);

line(37*d,7*d,37*d,12*d);

line(37*d,17*d,37*d,27*d);

line(37*d,27*d,7*d,27*d);

line(7*d,27*d,7*d,7*d);

setpenwidth(8);

line(8*d,10*d,10*d,8*d);

setpenwidth(2);

moveto(14*d,7*d);

lineto(14*d,10*d);

lineto(10*d,10*d);

lineto(10*d,17*d);

lineto(7*d,17*d);

line(27*d,7*d,27*d,12*d);

arc(27*d,7*d,5*d,270,360);

line(32*d,12*d,37*d,12*d);

arc(37*d,12*d,5*d,180,270);

setbrushcolor(clBlack);

setbrushstyle(bsDiagCross);

rectangle(30*d,22*d,37*d,27*d);

setbrushstyle(bsSolid);

setbrushcolor(clBrown);

rectangle(16*d,7*d,22*d,9*d);

circle(12*d,12*d,d);

rectangle(7*d,20*d,22*d,27*d);

setbrushstyle(bsClear);

rectangle(8*d,21*d,11*d,26*d);

end.