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

Ответ: коля.(к) вася с сашей и димой. петя с колей и сашей. саша с петей и васей.

Берешь с конца мысленно расставляешь над цифрами очерёдность от нуля до десяти потом смотришь над какими единичками какая цифра после смотришь в таблицу квадратов двойки. циферка над единичкой соответствует степени цифры 2   переводишь степень в цифру (2 во 2 степени = 4) складываешь что получилось и вуаля от двоичной к десятичной. наоборот же проще смотришь какую максимальную степень вмещает число( 9 вмещает 2 в 3 степени) пишешь степень от основного отнимаешь её и так пока не напишешь набор степеней после смотришь в таблицу и пишешь 0 если нету 1 если есть такая степень в написанных тобою (нам так объясняли)

Var a: array[1..10] of integer;           i,s: integer; begin     s: =0;     for i: =1 to 10 do           begin               a[i]: =random(3);               if a[i]=1 then s: =s+1         end;     writeln ('массив a: ');     for i: =1 to 10 do write (a[i],' ');     writeln;     writeln ('элементов массива, равных одному: ',s) end.