Однажды некий путешественник гостил на острове рыцарей и лжецов. Там ему встретились два местных жителя. Путешественник спросил одного из них: "Кто нибудь из вас рыцарь?" Его вопрос не остался без ответа, и он узнал то, что хотел. Кем был островитянин, к которому путешественник обратился с вопросом, - рыцарем или лжецом? Кем был другой островитянин? с полным решением .

👇

Ответ:

Хэлоу1

26.08.2020

Решить эту задачу нам информация, приведенная в условиях задачи после сообщения о том, что островитянин дал ответ на мой вопрос: мое замечание о том, что после его ответа я узнал истинный ответ на свой вопрос. Предположим, что островитянин, с которым я разговаривал (обозначим его А), ответил на мой вопрос "да". Мог бы я после такого ответа знать, что по крайней мере один из встретившихся мне островитян рыцарь? Разумеется, нет. Действительно, А мог оказаться рыцарем и на мой вопрос правдиво ответить "да" (его ответ соответствовал бы истине, поскольку по крайней мере один островитянин, а именно А - рыцарь). Оба островитянина могли оказаться лжецами. В этом случае А, солгав, ответил бы на мой вопрос "да" (что было бы ложью, так как ни один из островитян не был рыцарем). Таким образом, получив от А ответ "да", я не смог бы узнать истинный ответ на свой вопрос. Но, как говорится в условиях задачи, после ответа А мне стал известен правильный ответ на заданный мною вопрос. Следовательно, А мог ответить только "нет". Разберемся теперь, кто такие островитянин А и его приятель, которого мы обозначим В. Если бы А был рыцарем, то он не мог бы дать правдивый ответ "нет", поэтому А - лжец. Так как его отрицательный ответ ложен, то по крайней мере одни из двух островитян должен быть рыцарем. Следовательно, А - лжец, а В - рыцарь

4,7(62 оценок)

Открыть все ответы

Ответ:

лев234325

26.08.2020

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const
m = 10;

var
t: array[1..m] of integer;
i, n, nm, sm: integer;

begin
//Заполняем массив сл.числами и подсчитываем
//количество элементов и среднее арифметическое
//согласно условию задачи
for i := 1 to m do
begin
    t[i] := random(-20, 20);write(t[i]:4);
    if (i > 1) and (i <= m) then
      if t[i] > t[i - 1] then n := n + 1
      else if t[i] < t[i - 1] then begin
        sm := sm + t[i];nm := nm + 1;
      end;
end;
writeln;
writeln('число элементов больших предыдущего = ', n);
writeln('ср. арифметическое элементов меньших предыдущего = ', sm / nm);

end.

Тестовое решение:
    6 13 19   8 -19 -11 -20 -15 -19 -13
число элементов, больших предыдущего = 5
среднее арифметическое элементов, меньших предыдущего = -12.5

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

Ответ:

yarikkuisluiy

26.08.2020

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var m,n:integer;
Write('Количество строк и столбцов матрицы: ');
Read(n,m);
var a:=MatrixRandom(n,m,10,99);
for var i:=0 to n-1 do begin
    for var j:=0 to m-1 do Print(a[i,j]);
    Writeln
    end;
var p:=ReadInteger('Введите число Р:');
var b:array of integer;
SetLength(b,4*m);
var k:=0;
for var i:=n-p to n-1 do
    for var j:=0 to m-1 do
      if a[i,j] mod 4=0 then begin
        b[k]:=a[i,j]; Inc(k)
        end;
SetLength(b,k);
b.Print
end.

Тестовое решение:
Количество строк и столбцов матрицы: 6 8
67 70 68 72 38 72 96 38
49 75 24 55 72 63 21 40
72 12 60 22 74 30 13 45
22 45 39 24 35 97 64 31
76 62 15 94 56 28 31 13
41 67 75 37 67 13 25 20
Введите число Р: 4
72 12 60 24 64 76 56 28 20

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

Это интересно:

Хобби-и-рукоделие

31.03.2023

Чистка масляных картины: все, что нужно знать, чтобы сохранить ее надолго...

Искусство-и-развлечения

30.04.2020

Как стать сопрано, если вы альт (для девушек)...

03.03.2023

Как пригласить девочку на свидание в пятом классе...

Взаимоотношения

17.05.2021