Var
x,y,z,k:boolean;
begin
writeln('Введите значения x,y,z(true или false)');
readln(x,y,z);
k:=not(x or y) and z;
write('Значение выражения: ',k);
<span>end.</span>
d[x][y] - это точка с координатами
0 < d[x] <2
0 < d[y] < 1
То есть d(x0,y0) и d(x,y)
x0 = y0 = 0;
x = 2; y = 1;
Сообщение содержит 30 символов, считая пробелы и точку. Следовательно информационный объем сообщения:
30 * 2 байта=60 байт
Во вложении расписано, что будет в памяти после каждой команды.
4 - ((8 - 2) * 10 - 56) = 0
Ответ:
var a:array [1..10] of integer;
i:integer;
b:integer;
begin
for i:=1 to 10 do
if (a[i]>12) and (b=0) then b:=a[i] else if a[i]>12 then b:=b*a[i];
writeln (b);
end.
Объяснение:
Берем массив а под линейную таблицу. Создаем цикл фор, который проверяет сначала если наша переменная с ответом=0 и элемент массива>12, то наш ответ=элементу массива, после этого если элемент массива>12, то цикл умножает этот элемент массива на переменную с ответом. В конце программа выводит ответ.