Решите ! на улице звездной стоят в ряд 4 дома, в которых живут 4 человека: филипп, кристина, алла и никита. известно, что каждый из них владеет ровно одной из следующих профессий: танцор, артист, певец и режиссер. неизвестно, кто в каком доме живет, и кто какой профессией владеет. однако известно, что: у певца 2 соседа. танцор живет правее певца. режиссер живет через дом от артиста. дом артиста крайний филипп живет рядом с певцом. алла живет слева от филиппа. никита не танцор. выясните, кто какой профессии и кто где живет.

как пример:

составное выражение, лигические операторы:

not - отрицание

and - умножение

or - сложение

результат - истина:

(2 + 2 = 5) - ложь, в инверсии - истина

(3 * 3 = 9) - истина

(1+1=8) - ложь, но не влияет на результат, поскольку -

not(2 + 2 = 5) and (3 * 3 = 9) - истина

1) описание массива должно быть константным, запись  n+20 - переменная. изменить: задать n+20 в виде константы.

2) будет куча ошибок

а) i: byte - есть декларация, но нет инициализации перед использованием, вероятно, будут ошибки при попытке использования как индекс массива. (не совсем уверен, возможно разные среды могут проводить автоинициализацию в ноль, в таком случае тоже будет ошибка, но уже из-за несуществующего индекса массива)

б) нет декларации переменной c, хотя она используется (if c[i] mod 10=0 then p: =p+1; )

в чем отличие пользователя от программиста если кто-то работает с компьютером, то это не значит, что он программирует или умеет программировать. пользователь потому и называется пользователем, что он просто использует возможности компьютеров и программ, и чаще всего далек от способов их создания. же программиста создавать программы для тех, кому они нужны, т. е. для пользователей. причем системные программисты в основном программы для компьютерами, а программисты прикладные , прежде всего, пишут программы полезные массовому пользователю. в принципе, всех, кто работает с компьютером можно разделить на три категории: 1. программисты, программы для облегчения труда других пользователей. 2. программирующие пользователи, которые программы для решения своих , облегчения собственного труда. 3. непрограммирующие пользователи, желающие решать свои , используя уже существующие программы, не занимаясь программированием.

  я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))

vara: string; b: integer; beginwriteln ('введите строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; while (b = 1) dobeginwriteln ('введіте строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; end;

end.