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

253

400

Посмотреть ответы 2

Ответы на вопрос:

peharbuxal

Информатика

4,6(51 оценок)

Получается, леня разбил. рассуждала так, 1. миша разбить не мог, иначе ложью были бы 2 первые его фразы. а дальше просто. см. по указанным пунктам перед словами "ложь", "правда" : леня: 1. я не виновен. 10. ложь 2. я даже не подходил к окну. 11. правда - можно разбить и издалека 3. миша знает, кто это сделал. 12. правда. дима: 1. я не разбивал. 7.правда 2. с мишей я не был знаком до школы. 6.правда 3. это сделал толя. 5.ложь толя: 1. я не виновен. з. правда 2. это сделал миша. 2.ложь 3. дима врет, что я разбил. 4. правда миша: 1. я не виновен. 1.правда 2. стекло разбил леня. 9. правда 3. дима может поручиться за меня, т. к. знает меня давно. 8. ложь

nikbayy

Информатика

4,5(47 оценок)

Function atodec(n: string; k: integer): longint; { перевод из системы по основанию k в десятичную } var i: integer; pa,s: longint; begin s: =0; pa: =1; for i: =length(n) downto 1 do begin s: =s+pa*(ord(n[i])-ord('0')); pa: =pa*k end; atodec: =s end; function dectoa(n: longint; k: integer): string; { перевод из десятичной системы в систему по основанию k } var s: string; c: integer; begin s: =''; c: =ord('0'); while n> 0 do begin s: =chr(c+n mod k)+s; n: =n div k end; dectoa: =s end; function atob(s: string; a,b: integer): string; { перевод из системы по основанию a в систему по основанию b } begin atob: =dectoa(atodec(s,a),b) end; var a,b: integer; n: string; begin write('число в c/c по основанию [2; 10]: '); readln(n); writeln('укажите исходное и результирующее основания: '); read(a,b); writeln(n,'(',a,') = ',atob(n,a,b),'(',b,')'); end. пример решения число в c/c по основанию [2; 10]: 643342414 укажите исходное и результирующее основания: 7 9 643342414(7) = 80050347(9)