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

Предположим,  что лжёт ваня. тогда  вазу разбил саша. но по условию  саша  говорит правду, а следовательно вазу разбил ваня. получаем парадокс, сладовательно ваня говорит правду, а значит вазу разбил  коля. к.

// pascalabc.net

function dec2bin(n: integer): string;

begin

    for var c: =31 downto 0 do

        result += inttostr((n shr c) and 1);

end;

function count(b: string; c: char): integer;

begin

    for var i: =1 to length(b) do

        if b[i] = c then

            result += 1;

end;

begin

    var n: =32;

    var k: =3;

    var sum: =0;

    for var i: =1 to n do

        if count(dec2bin(i), '1') = k then

        begin

            sum += 1;

        end;

    writeln(sum);

end.

Program dfg; vars: real; o,k: integer; f,w,r,e: array[1..10] of integer; i,t,x,g,h,j,u,y,l,d: integer; beginh: =0; d: =0; o: =1; k: =1; write('массив1= '); writeln();           for x: =1 to 4 do                      begin              for i: =1 to 4 do                beginr[i]: =random(10); write(r[i]); e[i]: =o*r[i]; o: =o*10; u: =0+e[i]; if r[i]=0 thenh: = h+1; if r[i]=1 thend: =d+1;                     end; writeln();                   end; writeln();                               writeln(); write('массив2='); writeln(); randomize;                   for x: =1 to 4 do                      begin              for i: =1 to 4 do                beginr[i]: =random(10); write(r[i]); e[i]: =o*r[i]; o: =o*10; u: =0+e[i]; if r[i]=0 thenh: = h+1; if r[i]=1 thend: =d+1;                     end; writeln();                   end; writeln(); writeln('нули = ',h); writeln('единицы = ',d); end.