Пояснение:
1 - исправно, 0 - неисправно
1) Если правы хозяин и сын, а мастер не прав, то противоречий нет.
2) Если правы хозяин и мастер, а сын не прав, противоречие по памяти.
3) Если правы сын и мастер, а хозяин не прав, противоречие по процессору.
Ответ:
<em>Память и винчестер исправны, процессор вышел из строя.</em>
Program danya;uses crt;var a,b,c:integer;beginclrscr;for a:=1 to 1000 do begin for b:=1 to 1000 do begin for c:=1 to 1000 do begin if (a+b+c=407) and (a*b*c mod 1000000 = 0) then writeln ('',a,' ',b,' ',c); end; end;end;<span>end.</span>
Мне кажется б) потому что им надо узнать ответ. Задавая вопросы
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -15, 15);
a.Println;
var i := a.IndexMin;
var m := a[i];
Println('Минимум равен', m);
Print('Номера минимальных элементов:');
a.Indices(p -> p = m).Select(p -> p + 1).Println
end.
Так как число в системе счисления с основанием N содержит 4 цифры, то следует найти такое N, для которого выполняется условие N^3 < 31 < N^4.
2^3 = 8, 2^4 = 16 - не подходит
3^3 = 27, 3^4 = 81 - подходит
31(10) = 1011(3)
1011(3) = 1*3^3 + 1*3^1 + 1 = 27+3+1 = 31(10)