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

виновен вася

соврали:

вася - 1 раз(про себя)

коля - 2 раза

петя - 0 раз

лгали  

  в   к   п

в   -     -   +

к   -        

п       +     -

не лгали    

    в   к   п

в   +   +   +

к   -        

п       -     -

// необходимо найти длины сторон всех прямоугольников,  // площадь которых равна заданному натуральному числу s.  // стороны должны быть выражены натуральными числами.  // при этом решения, которые получаются перестановкой размеров сторон, считаются разными. var s,i   : word; begin   writeln ('введите площадь прямоугольника');   readln (s);   writeln ('возможные прямоугольники: ');   for i: =1 to s do     begin       if (s mod i)=0 then           begin           writeln ('сторона а=',i,' сторона b=',s/i);         end;     end; end.

Pascal   const      k = 10;   var    a : array [1..k] of integer;     b,n,i,l : integer;         begin    //формирование массива пропускаю     readln (n); // считываем длину        //обработка массива    for i : = 1 to k do    begin      l : = 0;       b : = a[i];       while b > 0 do      begin      b : = b div 10;       l : = l +1;       end;       if l = n then      a[i] : = 0;     end;           //вывод массива    writeln();     for i : = 1 to k do      write (a[i],' ');   end.