Алексей Ксения
?>

Совершено убийство. Подозреваются Браун, Джон, Смит. Один из них – брат убитого, другой – сосед, третий – случайный знакомый. Каждый из них сделал заявление. Браун. Если ни я, ни Джон невиновны, то Смит тоже невиновен. Смит. Чтобы обвинить меня и Брауна, достаточно признать Джона невиновным. Но Джон виновен. Значит, нельзя считать, что ни я, ни Браун невиновны. Джон. Если меня сочтут виновным, то Смиту удастся оправдаться только тогда, когда оправдается Браун. Но виновен либо Смит, либо Браун. Я невиновен. Следователь сообщил, что правду сказал только брат убитого, остальные солгали. Кто убийца?

Информатика

Ответы

alazaref
У меня получилось вот что (смотри скриншоты листинга программы и результата работы этой программы):
uses Crt;
const n = 10;
var A: array [1..n] of integer; 
        i: integer;
begin 
ClrScr; 
Randomize; 
WriteLn ( ' Massiv I: '); 
for i:=1 to n do 
    begin     
          A[i] := 1+random(n);  
          Write (A[i]:4); 
    end; 
WriteLn; WriteLn ( ' Massiv II: '); 
for i:=1 to n do 
    begin   
           if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i];     
           Write (A[i]:4); 
   end;
ReadLn;
end.     
Составьте программу, которая запол няет массив a [1..10] случайными целыми числа ми в диапазоне от 1
Составьте программу, которая запол няет массив a [1..10] случайными целыми числа ми в диапазоне от 1

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Совершено убийство. Подозреваются Браун, Джон, Смит. Один из них – брат убитого, другой – сосед, третий – случайный знакомый. Каждый из них сделал заявление. Браун. Если ни я, ни Джон невиновны, то Смит тоже невиновен. Смит. Чтобы обвинить меня и Брауна, достаточно признать Джона невиновным. Но Джон виновен. Значит, нельзя считать, что ни я, ни Браун невиновны. Джон. Если меня сочтут виновным, то Смиту удастся оправдаться только тогда, когда оправдается Браун. Но виновен либо Смит, либо Браун. Я невиновен. Следователь сообщил, что правду сказал только брат убитого, остальные солгали. Кто убийца?
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

slazurnaya
d892644813661946
gen218
Alyona
olgalooo
sedalex
Abespal
strager338
egorsalnikov1997139
Елизавета Александр2011
ktripoleva294
Elshel8694
ALLA1868
mansur071199486
ustinovda14