Определите информативность сообщения «А+B=C», если для описания математических формул необходимо воспользоваться 64-символьным алфавитом?

Задание 1integerВещественные числаДля объявления переменныхWritelnЗадание 2

На третьей строчке, видимо, ошибка, и вместо Вывод(x) на самом деле Ввод(x).

var  x: integer;  y: real; begin  Readln(x);  y := (10 + 2 * x) / (11 - x);  Writeln(y); end.При x = 3 переменная y = 2Задание 3var  number, resultNumber, i: integer; begin  resultNumber := 1;  for i := 1 to 3 do    begin      Readln(number);      resultNumber := resultNumber * number;    end;  Writeln(resultNumber); end.Задание 4var  a: integer;  b, c: real; begin  a := 3;  b := -1.5;  c := 6 - 2 * b;  c := c - a;  Writeln(c); end.Результатом вывода будет число 6Задание 5var  x, y, z: integer; begin  x := 8;  y := 2;  if (x > y) then    z := x - y  else    z := y + x;  Writeln(z); end.

Линейное ур-е имеет вид: ax^2+bx+c=0, где a, b, c - кофиценты
Чтобы решить кв. ур-е нужно:
Определить дискриминант по формуле: D(дискриминант)= b^2 * -4ac
2) Если D<0, то уравнение не имеет корней
Если D=0, то один корень
Если D>0, то два корня
3) ищем корни по формуле, Если D=0: x=-b/2a
Ищем корни по формуле, если D>0: x1=-b+√D/2a x2=-b-√D/2a

по теореме Виета:
x1+x2=-b/a
x1*x2=c/a
И подбираем корни.

По свойству корней.
Если a+b+c=0, то x1=1 x2=c/a
Если a-b+c=0, то x1=-1 x2=-c/a

Нахождение площади треугольника:
S=h*x*1/2, где h- высота треугольника, x - основание, к которому проведена ввсота