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

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

№1  var a,b,x,z,sra,srg: real;   begin  writeln('введите 4 числа');   read(a,b,x,z);   sra: =(a+b+x+z)/4;   srg: =power(a*b*x*z, 1/4);   writeln('среднее арифметическое этих чисел =',sra);   writeln('среднее этих числе =',srg);   end.  №2var a,b,sra,srg: real;   begin  writeln('введите 2 числа');   read(a,b);   sra: =(a+b)/2;   srg: =power(a*b, 1/2);   writeln('среднее арифметическое этих чисел =',sra);   writeln('среднее этих числе =',srg);   writeln('модули этих чисел a=',abs(a), ' b=',abs(b))  end. №3var a,b,c: real;   begin  writeln('введите длину катетов и гипотенузы соотвественно');   read(a,b,c);   if a=0 then a: =sqrt(sqr(c)-sqr(b));   if b=0 then b: =sqrt(sqr(c)-sqr(a));   if c=0 then c: =sqrt(sqr(a)+sqr(b));   writeln('площадь треугольника =',a*b*0.5);   writeln('периметр треугольника =',a+b+c);   end.

32768 = 2^15 = 1000000000000000(2) выпишем все числа с нечетным кол-вом 1 и симметричные: 1, 111, 10101, 11111, 1001001, 1101011, 1011101, 1111111, 100010001, 110010011, 101010101, 100111001, 110111011, 101111101, 111111111, 10000100001, 11000100011, 10100100101, 10010101001, 10001110001, 11001110011, 10101110101, 10011111001, 11011111011, 10111111101, 11111111111, 1000001000001, 1100001000011, 1010001000101, 1001001001001, 1000101010001, 1000011100001, 1100011100011, 1010011100101, 1001011101001, 1000111110001, 1100111110011, 1010111110101, 1001111111001, 1101111111011, 1011111111101, 1111111111111, 100000010000001, 110000010000011, 101000010000101, 100100010001001, 100010010010001, 100001010100001, 100000111000001, 110000111000011, 101000111000101, 100100111001001, 100010111010001, 100001111100001, 110001111100011, 101001111100101, 100101111101001, 100011111110001, 110011111110011, 101011111110101, 100111111111001, 110111111111011, 101111111111101, 111111111111111 всё! всего 64 числа.