Дано выражение с переменными x ,y, z. Составь программу, которая вычисляет значение этого выражения НА ЯЗЫКЕ ПИТОН

20 Б

ответ: получится -80

Объяснение:

я не знаю паскаль или что у тебя там.

поэтому следующая программа будет

написана на C/C++.Так же она с подробными

комментариями.

можешь скопировать и запустить

на онлайн компиляторе.И ВОТ КОПИРУЙ! :

//это комментарий

//подключение библиотеки ввода/вывода

#include <stdio.h>

//int main это точка входа в программу

int main()

{

//обьявление константы size1 и size2 которые будут

//иметь значение кол-ва элементов в массиве

const int size1 = 10,

    size2 = 10;

//обьявление самого двухмерного массива

   int A[size1][size2];

//заполнение нашего массива

//цикл

//примечание var++ это прибавление числа 1 к var

for (int i = 0; i < size1; i++)

{

 for (int k = 0; k < size2; k++)

 {

  if (i == k) {

   A[i][k] = 1;

  }

  else {

  A[i][k] = -1;

  }

 }

}

//переменная которая будет хранить результат

int result = 0;

//считывание результата

for (int i = 0; i < size1; i++)

{

 for (int k = 0; k < size2; k++)

 {

  result = result + A[i][k];

 }

}

//вывод результата

printf("result : %i",result);

//конец программы

return 0;

}

===== PascalABC.NET =====

type

 Node = auto class

   public

      data: integer;

     left, right: Node;

 end;    

procedure Add(var root: Node; x: integer);

begin

 if root = nil then

 begin

   root := new Node(x, nil, nil);

   exit

 end;

 if root.data > x then

   Add(root.left, x)

 else if root.data < x then

   Add(root.right, x)

end;

procedure Postfix(root: Node);

begin

 if root = nil then exit;

 Postfix(root.left);

 Postfix(root.right);

 Print(root.data)

end;

begin

 var s := Seq(51, 25, 73, 15);

 var R: Node;

 R := nil;

 foreach var x in s do

   Add(R,x);

 Add(R, 31);

 Add(R, 93);

 Postfix(R);

end.