На одной улице стоят в ряд 4 дома, в которых живут 4 человека: Семен,
Николай, Артур и Роман. Известно, что каждый из них владеет ровно одной из следующих профессий: Врач, Художник, Егерь и Тренер, но неизвестно, кто какой и неизвестно, кто в каком доме живет. Однако, известно, что:
(1) Врач живет левее Егеря
(2) Художник живет рядом с Тренером
(3) Художник живет правее Врача
(4) Тренер живет рядом с Врачом
(5) Артур живет правее Тренера
(6) Семен живет через дом от Николая
(7) Роман живет правее Семена
(8) Николай – не Врач
Выясните, кто какой профессии, и кто где живет

в первом доме проживает Роман,  профессия егерь

во втором живёт Семён по профессии врач

в третьем доме проживает Николай по профессии Художник.

а в четвертом доме проживает Артур тренер

Объяснение:

вот как то так)

program srednball;

var a,b,d : integer;

        c : real;

begin

    writeln (' vvedite balli, nabrannie sportsmenom po 3 vidam sporta');

    readln (d);

    readln (a);

    readln (b);

    c: =(a+b+d)/3;

    writeln (' srednii ball= ', c: 4: 2);

    readln;

end.

# include < stdio.h> int phi(int x){int i,k=0; if(x> 1)k+=phi(x-1)+phi(x-2); if(x< 2)k=x; return k; }      int main (void){int x; scanf("%d",& x); printf("%d",phi(x)); return 0; }