Напишите пропущенные команды.ввести с клавиатуры массив в,из 13 элементов целого типа,нумерация элементов начинается с 1 и вывести все элементы массива уменьшенные на 71.паскаль
Логическая операция ⊕ - это "исключающее ИЛИ" (xor в языках Паскаль, Бейсик и т.д.), а → операция присваивания. Тогда a⊕b→a; a⊕b→b; a⊕b→a - это был обмен значениями a ↔ b Теперь по этой же схеме обменяем местами b и с: b⊕c→b; b⊕c→с; b⊕c→b. Результат: b→a; c→b; a→c
Программа для иллюстрации: // PascalABC.NET 3.1, сборка 1218 от 12.04.2016 begin var a:=50; var b:=-20; var c:=0; Println('Исходные значения: a=',a,'b=',b,'c=',c); a:=a xor b; b:=a xor b; a:=a xor b; b:=b xor c; c:=b xor c; b:=b xor c; Println('Результат обмена: a=',a,'b=',b,'c=',c) end.
Правильный ответ: 7 Ты из пункта А в пункт B едешь 2км. Из B в пункт E 5км.
То есть куда тебе нужно из серой клетки попасть в другую серую. Например из А в пункт B, ты уже проехал 2км. Далее смотришь по горизонтали куда можно поехать. Ты видишь 3км (в столбике С) и 5км (в столбике E). Например выбираешь С и спускаешь на серую клетку. Далее от неё смотришь 6 (столбик D) и 10 (столбик E). Дальше так же выбираешь и спускаешься, но это я на пример показал длинный путь. Самый кратчайший я написал под правильным ответом. Надеюсь понятно объяснил, если что пиши в комментариях или в сообщения.
program mass;
var
B: array [1..13] of integer;
begin
for var i := 1 to 13 do
begin
readln(b[i]);
b[i] := b[i] - 71;
end;
for var i := 1 to 13 do
write(b[i], ' ');
end.