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

если мы внимательно прочитаем , то сможем сделать следующие выводы:

линда не в риме+линда равнодушна к +а кто живет в риме певица = линда снимается в кино +  парижанка не снимается в кино = линда живет в чикаго.

джуди живет не в париже+линда живет в чикаго = джудит живет в риме

следовательно айрис живет в париже

а кто живет в риме певица+джудит живет в риме = джудит -певица.

линда снимается в кино+джудит -певица. = айрис -

ответ: айрис живет в париже и занимается .

Var    s,r,k: string;           j: integer; begin   write('строка:   ');   readln(s);       foreach k in s.split(' ').distinct do       begin         j: =0;         foreach r in s.split(' ') do         if r=k then j: =j+1;         writeln('слово   ','"',k,'"','   встречается ',j,' раз');       end; end.

Var   a : array['a'..'z'] of integer;   t : array['a'..'z'] of boolean;   m : integer;   c : char; begin   m : = 0;   for c : = 'a' to 'z' do     a[c] : = 0;   repeat     for c : = 'a' to 'z' do       t[c] : = false;     read(c);     while (c < > ',') and (c < > '.') do       begin       if not t[c] then         begin         a[c] : = a[c] + 1;         if a[c] > m then           m : = a[c];         t[c] : = true         end;       read(c)       end   until c = '.';   for c : = 'a' to 'z' do     if a[c] = m then       write(c,' ') end.