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

              врач учитель слесарь парикмахер билл         +            --              --                  -- джон      --              +              --                -- алан         --              --                +                -- хью            --            --              --                  +   абхд    

Не знаю как с таблицы,но у меня получился ответ дхба

Решение: разделим число  513  на  два  ( 2 - это основание системы счисления). делить будем с остатком, частное запишем в столбец "част.", а остаток в столбец "ост.". затем полученное частное снова разделим на  два  и новое частное и остаток также распределим по столбцам (см. ниже). повторять деление будем до тех пор, пока последнее частное не окажется меньше двух. част.ост.513 : 2 =256  1256 : 2 =128  0128 : 2 =64  064 : 2 =32  032 : 2 =16  016 : 2 =8  08 : 2 =4  04 : 2 =2  02 : 2 =1  0теперь мы можем записать число  513  в двоичной системе счисления. для этого в старший (самый левый) разряд числа запишем последнее частное (выделено жирным), а в следующие, по порядку, разряды запишем все полученные выше остатки, беря их снизу вверх. то есть, в самом младшем разряде оказывается самый верхний остаток.ответ:         51310  =  10000000012

Program qq; uses crt; var a: array [1..20] of integer; i: integer; begin for i: =1 to 20 do                              readln (a[i]); //ввод массива. не указали откуда дан массив, так что введем его через enter for i: =1 to 20 do                            if a[i]< 10 then                                         a[i]: =0; //сравним каждый элемент массива с 10. если меньше 10, то заменим на ноль for i: =1 to 20 do                            write (a[i], ' '); //вывод массива на экран end.